Question

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

Answer 1

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