1301. treecut (Standard IO)

Description

有一个N个节点的无根树，各节点编号为1..N，现在要求你删除其中的一个点，使分割开的连通块中节点个数都不超过原来的一半多。

Input

第一行：一个整数N (1 <= N <= 10,000)。 　　后面有N-1行：每行两个整数 X 和 Y，表示一个边连接的两个节点号。

Output

输出所有可能选择的点。如果有多个节点，按编号从小到大输出，每个一行。 如果找不到这样的点，输出一行："NONE".

Sample Input

10 1 2 2 3 3 4 4 5 6 7 7 8 8 9 9 10 3 8

Sample Output

3 8

思路

因为是一棵无根树，所以随便找一个点当根节点，做一次dfs，s[i]统计以i为根节点时共有多少个节点，最后如果一个点所有儿子的s都不超过n的一半且总结点减去此节点的s值也不超过n的一半，那么这个点就可以删除。

var  s:array[1..10000] of longint;  f:array[1..10000,1..10000] of boolean;  a,d:array[1..10000] of boolean;  n:longint;procedure xxoo(x:longint);var  i:longint;  c:boolean;begin  a[x]:=false;  c:=true;  for i:=1 to n do    begin      if (f[i,x])and(a[i]) then        begin          xxoo(i);          s[x]:=s[x]+s[i];          if s[i]>n div 2 then            c:=false;        end;    end;  if n-s[x]>n div 2 then    c:=false;  if c then d[x]:=true;end;var  i,x,y:longint;  c:boolean;begin  readln(n);  for i:=1 to n-1 do    begin      readln(x,y);      f[x,y]:=true;      f[y,x]:=true;    end;  fillchar(a,sizeof(a),true);  for i:=1 to n do    inc(s[i]);  xxoo(1);  for i:=1 to n do    if d[i] then writeln(i);end.