Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic
Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic
Гость
Ответ(ы) на вопрос:
ГостьCLS
S = 1
FOR i = 1 TO 11
IF i / 3 = INT(i / 3) THEN
S = S * i
END IF
NEXT i
PRINT S
Не нашли ответ?
Похожие вопросы