Найти сумму и произведение всех целых чисел от - вопрос №152516112030019 от Vadik01K 22.12.2022 21:12

Question

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

Vadik01K · Answer

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...