无聊的人写的无聊的题的无聊的题解
真的是一道很无聊的题。
读入所有数据,统计每个人有多少个能与他交谈的人。少于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 .
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 .