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

1

Ответы и объяснения

2013-04-04T17:09:10+04:00

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