Найти сумму первых 441 нечетных чисел (паскаль)

dogsno dogsno    2   12.08.2019 23:20    1

Ответы
890ZLO168 890ZLO168  31.08.2020 14:56
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика