level 4
Jor😂
楼主
var Noknow:array[1..200000,1..200000] of boolean;
Nosendto:array[1..200000] of integer;
k,n,round:integer;
i,j:longint;
begin
for i:=1 to 200000 do
for j:=1 to 200000 do
Noknow[i,j]:=false;
assign(input,'message.in');
reset(input);
readln(n);
for i:=1 to n do
begin
read(Nosendto[i]);
Noknow[i,i]:=true;
end;
close(input);
round:=1;
for i:=1 to n do
begin
for j:=1 to n do
if Noknow[j,Nosendto[j]]=true then
begin
assign(output,'message.out');
rewrite(output);
writeln(round);
exit;
end;
for j:=1 to n do
for k:=1 to n do
if Noknow[j,k]=true then
Noknow[Nosendto[j],k]:=true;
end;
end.
编译是没有错误但总是出Exitcode=1的错误应该如何改
求助大神
2015年12月04日 10点12分
1
Nosendto:array[1..200000] of integer;
k,n,round:integer;
i,j:longint;
begin
for i:=1 to 200000 do
for j:=1 to 200000 do
Noknow[i,j]:=false;
assign(input,'message.in');
reset(input);
readln(n);
for i:=1 to n do
begin
read(Nosendto[i]);
Noknow[i,i]:=true;
end;
close(input);
round:=1;
for i:=1 to n do
begin
for j:=1 to n do
if Noknow[j,Nosendto[j]]=true then
begin
assign(output,'message.out');
rewrite(output);
writeln(round);
exit;
end;
for j:=1 to n do
for k:=1 to n do
if Noknow[j,k]=true then
Noknow[Nosendto[j],k]:=true;
end;
end.
编译是没有错误但总是出Exitcode=1的错误应该如何改
求助大神
