22.05.2008, 03:48
общий
это ответ
Здравствуйте, Вячеслав Сергеевич!
Проверить делимость можно узнав остаток от деления на 3. в Basice это можно сделать с помощью mod
Успехов.
Приложение:
Sub t()A = 15654B = 6768C = 876312D = 3543541MsgBox IIf(A Mod 3 = 0 And B Mod 3 = 0 And C Mod 3 = 0 And D Mod 3 = 0, "Правда", "Не Правда")End Sub