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

Question

Информатика

Мавродий

12 октября, 08:09

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

+4

Ответы (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.