Ответы и объяснения

2012-09-24T13:22:45+04:00

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.

2012-09-24T15:33:48+04:00

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.