написать программу которая находит сумму четных чисел от 0 до 1000

Question

Информатика

Любимыйсын

8 апреля, 16:13

написать программу которая находит сумму четных чисел от 0 до 1000

+3

Ответы (2)

Знаете ответ на вопрос?

Трифена · Answer 1

var s, i: integer;

begin

s:=0;

for i:=0 to 1000 do if i mod 2 = 0 then s:=s+i;

write (s) ;

end.

Пульхерья · Answer 2

Program as;

Var s: integer;

begin

For i:=0 to 1000 do

If i mod 2=0 then s:=s+i; {Если число делится на 2 без остатка плюсуем его к общей сумме}

Writeln (s) ;

readln;

End.