Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад