Найдите сумму кратных 7 чисел, меньших 100

Задание:

Найдите сумму кратных 7 чисел, меньших 100

Решение:

Var s,i: integer; begin for i: =1 to 99 do if i mod 7=0 then s: =s+i; writeln (s); end.

Знаете другой ответ?

Отправить свой ответ