我用上一道题的代码原封不动得交了上去。。。结果就AC了。。。。
这是我的源代码：
var
a:array[0..300,0..300] of boolean;
b:array[0..300] of boolean;
i,j,n,k,m,ans:longint;
begin
fillchar(a,sizeof(a),false);
fillchar(b,sizeof(b),true);
readln(n);
for i:=1 to n do
begin
read(j);
while j<>0 do
begin
a[i,j]:=true;
read(j);
end;
end;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if a[j,i] and a[i,k] then
a[j,k]:=true;
ans:=0;
for i:=1 to n do
if b[i] then
begin
inc(ans);
for j:=i+1 to n do
if a[i,j] then
b[j]:=false;
end;
writeln(ans);
end.