Найти сумму чисел кратных семи от 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
