ОШ
Оксаночка Шоколадка
1. while (i >= 1) do begin inc(s,i); dec(i,2); end;
2. writeln( '249500' );
цена вопроса?
for i:=999 downto 1 do
s:=s+i;
var r : longint;
var k : integer;
begin
r:= 0;
k:=1;
while k <= 999 do begin
r:=r+k;
k:=k+2;
end;
writeln(r);
readln();
end.