Составить программу для вычисления суммы кубов всех чисел от 1 до 10 ,использовать while.
((​

Какэтимпользоваться Какэтимпользоваться    3   26.01.2020 15:25    11

Ответы
кузя216 кузя216  11.10.2020 03:18

program kwad;  

var i,s:integer;  

begin

while i<>11 do begin

s:=s+sqr(i);

i+=1

end;  

writeln(s);  

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика