Посчитать сумму чётных чисел в промежутке от 8 до 1000

Question

Посчитать сумму чётных чисел в промежутке от 8 до 1000

Answer 1

var i,s:integer;{1}begins:=0;for i:=1 to 1000  doif i mod 2=0 then s:=s+i;end.{2}beginfor i:=1 to 1000 doif odd(i) then s:=s+i;{3}a:array[1..500] of integer;n:integer;for i:=1 to 1000 doif odd(i) then a[i]:=i;n:=i;for i:=1 to n dos:=a[i]+s;end.