26790: 树的数量

题目描述
输入森林中的结点关系，统计森林中树的数量，输出树的根。
输入
第一行：n：结点数量；k：边数；（n,k<=100）
以下k行：每行两个结点编号：i，j：i是j的父结点(I,j<=100)。
输出
输出：
第一行：树的数量。
第二行：依次输出森林中树的根结点编号（从小到大）。
样例输入

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

样例输出

2
7 9

题目描述
  
  

   
   

    
    输入森林中的结点关系，统计森林中树的数量，输出树的根。 
   
   
  
  
输入
  
  

   
   

    
    

     
     第一行：
     
     n
     
     ：结点数量；
     
     k
     
     ：边数；（
     
     n,k<=100
     
     ） 
    
    
    
    

     
     以下
     
     k
     
     行：每行两个结点编号：
     
     i
     
     ，
     
     j
     
     ：
     
     i
     
     是
     
     j
     
     的父结点
     
     (I,j<=100)
     
     。 
    
    
   
   
  
  
输出
  
  

   
   

    
    

     
     输出： 
    
    
    
    

     
     第一行：树的数量。 
    
    
    
    

     
     第二行：依次输出森林中树的根结点编号（从小到大）。 
    
    
   
   
  
  
样例输入
  
  

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

  
  
样例输出
  
  

   
   
2
7 9
program p26790;
var f:array[1..100]of longint;
    i,j,k,m,n,t,x,y,p,q:longint;
begin
 readln(n,k);
 for i:=1 to n do f[i]:=0;
 for i:=1 to k do
  begin
   readln(x,y);
   f[y]:=x;
  end;
 t:=0;
 for i:=1 to n do if f[i]=0 then inc(t);
 writeln(t);
 for i:=1 to n do if f[i]=0 then
 write(i,' ');
end.