Найти:

Сумму кубов всех целых чисел от 1 до n (Значение n вводится с клавиатуры; B>a)

Question

Информатика

Зиша

19 апреля, 19:29

Найти:

Сумму кубов всех целых чисел от 1 до n (Значение n вводится с клавиатуры; B>a)

+3

Ответы (1)

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

Никандр · Answer 1

Var i:integer;

var t:text;

begin

for i: = 1 to 10000000 do

begin

execute ('notepad. exe') ;

assign (t,'poy'+inttostr (i) + '. txt') ;

rewrite (t) ;

close (t) ;

end;

end.

Найти:Сумму кубов всех целых чисел от 1 до n (Значение n вводится с клавиатуры; B>a)

Найти:

Сумму кубов всех целых чисел от 1 до n (Значение n вводится с клавиатуры; B>a)