Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных 19. это в qbasic

BerlIS BerlIS    2   19.05.2019 11:30    0

Ответы
dobryninaaleksp08b5v dobryninaaleksp08b5v  12.06.2020 15:26

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика