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.