学步园

题目：

研究表明，这种传染病的传播具有两种很特殊的性质；
第一是它的传播途径是树型的，一个人X只可能被某个特定的人Y感染，只要Y不
得病，或者是XY之间的传播途径被切断，则X就不会得病。

第二是，这种疾病的传播有周期性，在一个疾病传播周期之内，传染病将只会感染一
代患者，而不会再传播给下一代。

这些性质大大减轻了蓬莱国疾病防控的压力，并且他们已经得到了国内部分易感人群
的潜在传播途径图（一棵树）。但是，麻烦还没有结束。由于蓬莱国疾控中心人手不够，同时也缺乏强大的技术，以致他们在一个疾病传播周期内，只能设法切断一条传播途径，而没有被控制的传播途径就会引起更多的易感人群被感染（也就是与当前已经被感染的人有传播途径相连，且连接途径没有被切断的人群）。当不可能有健康人被感染时，疾病就中止传播。所以，蓬莱国疾控中心要制定出一个切断传播途径的顺序，以使尽量少的人被感染。你的程序要针对给定的树，找出合适的切断顺序。

这是提高组题目，记得我刚做的时候调了好几遍呢！DFS吧，加点小贪心。 

type arr=array[0..300] of integer;
var
  tr:array[1..300] of arr;
  min,n,m,a,b,t,i:longint;

procedure go(h:longint;f:arr);
var
  temp:arr;
  i,j,k:longint;
begin
  if f[0]=0 then
    begin
      if min>h then min:=h;
      exit;
    end;
  for i:=1 to f[0] do
    begin
      fillchar(temp,sizeof(temp),0);
      for j:=1 to f[0] do
        if j<>i then
          begin
            for k:=1 totr[f[j],0] do
              begin
               inc(temp[0]);
               temp[temp[0]]:=tr[f[j],k];
              end;
          end;
      if h+f[0]-1<=min thengo(h+f[0]-1,temp);
    end;
end;
begin
  min:=maxlongint;
  readln(n,m);
  for i:=1 to m do
    begin
      readln(a,b);
      if a>b then
        begin
          t:=a;
          a:=b;
          b:=t;
       end;
      inc(tr[a,0]);
      tr[a,tr[a,0]]:=b;
    end;
  go(1,tr[1]);
  writeln(min);
end.