Найти сумму чисел кратных семи от 10 до 600
Найти сумму чисел кратных семи от 10 до 600
Гость
Ответ(ы) на вопрос:
Гостьprogram P1;
var
i,summ : integer;
begin summ := 0; for i := 10 to 600 do
if i mod 7 = 0 then
summ := summ + i;
writeln('Otvet: ',summ);
readln;
readln;
end.
Не нашли ответ?
Похожие вопросы