Найти сумму и произведение всех целых чисел от 1 до 20 до 300 ...
Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных 19. Это в QBasic
Есть ответ
17.12.2022
245
Ответ
s = 0p = 1FOR i = 200 TO 300IF (i MOD 19) = 0 THEN PRINT "i=",i: s = s + i: p = p * iEND IFNEXT i
PRINT sPRINT p
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022