Ответы
Гость Var i,k,sum:integer;Begini:=1;k:=1;sum:=0;while i<=441 do beginsum:=sum+k;i:=i+1;k:=k+2;end;Writeln(sum);End.
Нет комментариев
Список предметов
