⇢ ОШ
Оксаночка Шоколадка
Юлия Жарова
1. while (i >= 1) do begin inc(s,i); dec(i,2); end;
2. writeln( '249500' );
AГ
Aльбина Герасимова
цена вопроса?
АМ
Алина Масликова
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.