Вычислить сумму чисел от 10 до 70, чисел кратных 4
Вычислить сумму чисел от 10 до 70, чисел кратных 4
Гость
Ответ(ы) на вопрос:
Гость Var i,s:integer;
begin
s:=0;
for i:=10 to 70 do
if i mod 4 = 0 then s:=s+i;
writeln('S = ',s);
end.
Результат:
S = 600
Не нашли ответ?
Похожие вопросы