Написать программу нахождения произведений чисел кратных 3 на отрезке от 1 до 11 на qbasic

Ответ

Автор - v1248

CLS

S = 1

FOR i =
1 TO 11

IF i / 3
= INT(i / 3) THEN

S = S *
i

END IF

NEXT i

PRINT S

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.