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