Question

Используя цикл while, напишите программу, вычисляющую сумму кубов чисел от 1 до введённого целого числа m.​

Answer 1

Ответ:

• var i,m,sum: integer;
• begin
• read(m);
• while i<m do
• begin
• i:=i+1;
• sum:=sum+i*i*i;
• end;
• write(sum);
• end.

Пример работы:

1*1*1 + 2*2*2 + 3*3*3 + 4*4*4 + 5*5*5 = 1+8+27+64+125 = 225