Question

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

Answer 1

program kwad;  

var i,s:integer;  

begin

while i<>11 do begin

s:=s+sqr(i);

i+=1

end;  

writeln(s);  

end.