Ответы
Ответ дал:
0
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.
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 год назад
1 год назад
6 лет назад