Помогите решить задачу на языке Паскаль. Найти сумму всех чётных чисел от 1 до 1000 (задачу решить 2 способами)

var s,i:longint;
begin
s:=0;
for i:=1 to 1000 do
if i mod 2=0 then s:=s+i;
write('Сумма равна', s);
readln;
end.

это один из способов

самый простой вариант:
s := 0;
for i := 1 to 500 do s := s + 2*i;

еще можно через while сделать, вот и будут 2 способа - скорей всего это и имеется в виду

1)
s := 0;
for i := 1 to 1000 do if i mod 2 = 0 then s := s + i;
2) s := 0;
i := 2;
while i <= 1000 do
begin
s := s + i;
i := i + 2;
end;
3)
s := (2 + 1000)*500/2;

2 Алексей Владимирович: учите матчасть. div - это целая часть от деления

1)
program summa;
uses crt;
var
i, s: integer;
begin
clrscr;
s := 0;
for i := 2 to 1000 do
if (i div 2 = 0) then
s := s + i;
readkey;
end.

2)
program summa;
uses crt;
var
i, s: integer;
begin
clrscr;
s := 0;
i := 2;
while i < 1001 do
begin
s := s + i;
i := i + 2;
end;
readkey;
end.

3)
program summa;
uses crt;
var
i, s: integer;
begin
clrscr;
s := 0;
for i := 1000 downto 2 do
if (i div 2 = 0) then
s := s + i;
readkey;
end;
Могу еще много вариантов придумать)) )

Блин, опередили меня (((