Вычислить сумму чисел от 10 до 70, чисел кратных 4

Question

Вычислить сумму чисел от 10 до 70, чисел кратных 4

Answer 1

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