Tyvj 1112 舞会2

题目：	舞会2
来源：	Tyvj 1112
题目大意：	这n个人每一个人都有一个小花名册，名册里面写着他所愿意交流的人的名字。比如  说在A的人名单里写了B，那么表示A愿意与B交流；而且如果A名单里面有B，那么B  名单里面肯定有A，也就是说两个人如果一方愿意和另一方交流，那么另一方也肯定  愿意和这一方交流。  Victoria觉得需要在这n个人里面确定m个人，保证这m个人每一个人都能在舞会中找  到至少k个人交流，并求出一种方案以确定m的最大值是多少，每个人愿意交流的  人，以0结束
数据范围：	1<=n,k<=200
样例：	22 1  4 5 10 11 20 21 0  2 3 6 8 11 16 0  2 3 5 8 12 15 16 18 0  1 5 6 10 11 12 16 18 0  1 3 4 16 20 0  2 4 19 21 22 0  8 9 13 19 20 0  2 3 7 10 19 0  7 10 14 16 19 0  1 4 8 9 10 20 0  1 2 4 18 19 20 21 0  3 4 13 0  7 12 15 16 18 19 21 22 0  9 16 0  3 13 21 0  2 3 4 5 9 13 14 20 0  18 22 0   3 4 11 13 17 21 0  6 7 8 9 11 13 19 21 22 0  1 5 7 10 11 16 21 22 0  1 6 11 13 15 18 19 20 0  6 13 17 19 20 0	22
做题思路：	就是读入，然后每行除了最后的0外统计下一行有多少个，比要求的大就可以ANS+1
知识点：	模拟还是贪心？

var
 ans,n,k,i,j,t:longint;
begin
 readln(n,k);
 fori:=1 to n do
 begin
  read(t);j:=0;
  while t<>0 do
   begin
    inc(j);
    read(t);
   end;
  readln;
   ifj>=k then inc(ans);
 end;
 writeln(ans);
end.

题目来源： http://www.tyvj.cn:8080/Problem.asp?PType=&title=&page=2