如果是直接统计的话 纯属是数据弱而已

不然是不会过的 建议还是不要用吧。。

如数据

4 2

2 3 4 5 0

1 0

1 0

1 0

1 0

一般统计 答案为 1

而答案应该为 0

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program ex;

var i,j,n,k,ans:longint;

num:array[1..200]of longint;

count:array[1..200,0..200]of longint;

bo:array[1..200]of boolean;

procedure init;

var i,j,x:longint;

begin

fillchar(bo,sizeof(bo),true);

readln(n,k);

for i:=1 to n do

begin

num[i]:=i;

read(x);

while x0 do

begin

inc(count);

count[i,count]:=x;

read(x);

end;

end;

end;

procedure del(a:longint);

var i,j:longint;

begin

bo[a]:=false;

for i:=1 to count[a,0] do

if bo[count[a,i]] then

begin

dec(count[count[a,i],0]);

if count[count[a,i],0]

大家小心别悲剧了,此题纯属文字游戏,只说确定m个人能找到k个人说话,并没有说找不到的要被踢掉.....

const maxx=240;

var w:array[1..maxx,0..maxx] of integer;

b:array[0..maxx] of boolean;

i,j,k,l,m,n:longint;t:boolean;

begin

read(n,k);

for i:=1 to n do

begin

j:=0;read(m);

while m0 do

begin

j:=j+1;

w:=m;

read(m);

end;

w:=j;

end;

fillchar(b,sizeof(b),true);

for l:=1 to n do

begin

t:=false;

for i:=1 to n do

begin

if b[i]=true then begin

if w

汗...我刚看还以为并查集呢......

边读边统计，每个人写了M人

读完了 判断 M是否小于K

如果小于 就把他写了的人的M 减个一

我觉得这题应该是拓扑排序 把到不了的人都减掉

然后在从认识的人里把这些到不了的人也减掉 直到减到不能减为止，在统计人的个数

输入数据》k显然是错误的 数据太烂了

引用下 墨色倾城 的 是他给我灵感的

这数据真搞笑 每行 >=K 就行？

显然错误

举例

3 2

2 3 0

1 0

3 0

显然答案应为0

因为 2 3 号只有1个认识的显然不能去舞会 而他们不去直接导致的是 只有1去 而1单独去显然 认识0个人 所以1也去不了 SO

这数据真搞笑 这么多直接算每行的程序也能过？

不知道个大牛怎么看的 还请多多指教

太。。。

没读k都有40分

type

link=record

time:integer;

talk:set of 1..100;

end;

var

i,j,n,k,guodu1,shuchu:integer;

a:array [1..100] of link;

yiyou:set of 1..100;

procedure dizeng(i:integer;j:integer);

begin

if([i] not in a[j].talk)and([j] not in a[i].talk) then

begin

inc(a[i].time);

inc(a[j].time);

a[i].talk:=a[i].talk+[j];

a[j].talk:=a[j].talk+[i];

if([i] not in yiyou)and(a[i].time >= k)then

begin

inc(shuchu);

yiyou:=yiyou+[i];

end;

if([j] not in yiyou)and(a[j].time >= k)then

begin

inc(shuchu);

yiyou:=yiyou+[j];

end;

end;

end;

end;

procedure main;

var

guodu:boolean;

begin

for i:=1 to n do

repeat

read(guodu1);

if (guodu10) and (guodu1i) then

dizeng(i,guodu1)

else

guodu:=true;

until guodu;

end;

begin

readln(n);

readln(k);

main;

writeln(shuchu);

end.

请大牛门看一下哪里有错

这数据真搞笑 每行 >=K 就行？

显然错误

举例

3 2

2 3 0

1 0

3 0

显然答案应为0

因为 2 3 号只有1个认识的显然不能去舞会 而他们不去直接导致的是 只有1去 而1单独去显然 认识0个人 所以1也去不了 SO

这数据真搞笑 这么多直接算每行的程序也能过？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

难度2

灰机般的VJ

#include

using namespace std;

int main ()

{

int n,k,i,a,sum=0,now;

cin>>n>>k;

for(i=1;i>a;

if(a!=0)

now+=1;

else

break;

}

if(now>=k)

sum+=1;

}

cout

妈比

水题

垃圾数据

煞笔出题人

二B

喷出题人！

居然水成这样,没天理啊~~~

害得俺正确率差点跌过50%了...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

水,居然看错了题目!哎,我的AC率啊!

农夫山泉

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program victoria;

var

i,n,k,s,x:longint;

a:array[1..10000]of longint;

begin

readln(n,k); x:=0;

for i:=1 to n do

begin

repeat

read(s);

a[i]:=a[i]+1;

until s=0;

end;

for i:=1 to n do if a[i]>=k then inc(x);

writeln(x);

end.

无比水题

直接在提交框里编的

一次AC

每一行中少于K的排除不就行了吗

水题

太简单了

正如下面的牛所说