Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных 19. Это в QBasic
Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных 19. Это в QBasic
Гость
Ответ(ы) на вопрос:
Гостьs = 0
p = 1
FOR i = 200 TO 300
IF (i MOD 19) = 0 THEN
PRINT "i=",i: s = s + i: p = p * i
END IF
NEXT i PRINT s
PRINT p
Не нашли ответ?
Похожие вопросы