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

2012-01-30T16:05:11+04:00

var

i,s:integer;

begin

i:=1;

s:=0;

while i<=31 do

begin

s:=s+i;

i:=i+2;

end;

writeln(s);

end.