Составить программу для подсчёта суммы кубов n натуральных чисел. n=40. (Turbo Pascal)

Question

Степанида

17 сентября, 15:47

+3

Ответы (1)

Знаете ответ на вопрос?

Лизуха · Answer 1

Uses Crt;

const

n=40;

var

i, s:longint;

begin

s:=0;

for i:=1 to n do

s:=s+i*i*i;

ClrScr;

Writeln (s) ;

ReadKey

end.

Результат

672400