Консультация № 137807
21.05.2008, 21:12
0.00 руб.
0 1 1
Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел есть кратные трем?. Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.

Обсуждение

Неизвестный
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
Форма ответа