vijos p1021题解

题目叙述

无聊的人写的无聊的题的无聊的题解

真的是一道很无聊的题。

读入所有数据，统计每个人有多少个能与他交谈的人。少于k就T掉，剩的人数就是答案。

 

var  i,n,k,j,ch,m:longint;
begin
  readln(n,k);
   for  i: = 1   to  n  do
     begin
      read(ch);
      j: = 0 ;
       while  ch <> 0   do
         begin
           if  ch <> i  then  inc(j);
          read(ch);
         end ;
       if  j >= k  then  inc(m);
      readln;
     end ;
  writeln(m);
end .

 

转载于:https://www.cnblogs.com/waterfalleagle/archive/2009/11/03/1595633.html