啊哈哈哈哈哈哈~~~本人做出来了哦呵呵踢开猫咪,骄傲的鱼儿会飞翔~~~~~~~~众神欢呼啊~~~~嘎嘎嘎~~喵~~~~~~~~program jiaoliu;var a:array[1..200,1..200]of boolean; b:array[1..200]of boolean; n,total:integer;procedure init;var k,i:integer;begin fillchar(a,sizeof(a),false); readln(n); for i:=1 to n do begin read(k); while k<>0 do begin a[i,k]:=true; read(k); end; end;end;procedure main;var i,j,k:integer;begin for k:=1 to n do for i:=1 to n do for j:=1 to n do if a[i,k] and a[k,j] then a[i,j]:=true; total:=0; k:=0; fillchar(b,sizeof(b),true); while k

到底是什么叫啊？好么！这比我那道数学难多了。

我试过了 没有错这是毋庸置疑的试着看了看但是 明确的说 不懂。。。。。。。。你还是讲解一下吧 光靠我自学太残忍了吧

这个的确有难度你要是会这个，就能NOIP了