Найти:

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

Question

Информатика

Ольгуша

14 августа, 07:35

Найти:

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

+1

Ответы (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)