标签:LLC set code begin ssi for sig sizeof reset
题面:
思路:
代码:
var map:array[0..201,0..201] of boolean; father:array[0..201] of longint; i,j,k,n,t:longint; begin assign(input,‘cdrom.in‘); reset(input); assign(output,‘cdrom.out‘); rewrite(output); fillchar(map,sizeof(map),false); read(n); for i:=1 to n do begin read(t); while t<>0 do begin map[i,t]:=true; read(t); end; end; for k:=1 to n do for i:=1 to n do for j:=1 to n do if map[i,k] and map[k,j] then map[i,j]:=true; for i:=1 to n do father[i]:=i; for i:=1 to n do for j:=1 to n do if map[i,j] then father[j]:=father[i]; t:=0; for i:=1 to n do if father[i]=i then inc(t); write(t); close(input);close(output); end.
标签:LLC set code begin ssi for sig sizeof reset
原文地址:https://www.cnblogs.com/godrose/p/9742152.html