您所在位置：主题：输出到文件有问题！
woohaha
[专家分：120] 发布于 2005-05-25 15:00:00
var f:text
i,j,k:integer;
begin
assign(f,'c:\in.in');
reset(f);
for i:=1 to 100 do
for j:=0 to 100 do
for k:=0 to 100 do
if (i*5+j+k/3=100)and(i+j+k=100) then writeln(f,i:3,j:3,k:3);
close(f);
end.
[em18][em18][em18]
我进去那个文件后发现什么也没有
请问是哪里有问题？
i,j,k:integer;
begin
assign(f,'c:\in.in');
reset(f);
for i:=1 to 100 do
for j:=0 to 100 do
for k:=0 to 100 do
if (i*5+j+k/3=100)and(i+j+k=100) then writeln(f,i:3,j:3,k:3);
close(f);
end.
[em18][em18][em18]
我进去那个文件后发现什么也没有
请问是哪里有问题？
