Составьте программу вычисления суммы кратных чисел 7 в диапазоне от 1 до 100
Составьте программу вычисления суммы кратных чисел 7 в диапазоне от 1 до 100
Гость
Ответ(ы) на вопрос:
ГостьVar
sum, i : Integer;
Begin
sum:=0;
For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;
Writeln(sum);
end.
Не нашли ответ?
Похожие вопросы