太简单了 超级菜鸟 都会做

program p1021;

var n,k,m,c,i:integer;

a,b:array[1..200] of integer;

begin

m:=0;

fillchar(a,sizeof(a),0);

read(n,k);

for i:=1 to n do

repeat

read(c);

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

until c=0;

for i:=1 to n do

if a[i]>=k

then m:=m+1;

write(m);

end.

太简单了 超级菜鸟 都会做

program p1021;

var

n,k,m:longint;

p:boolean;

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

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

procedure init;

var

i,j,x:longint;

begin

readln(n,k);

for i:=1 to n do

begin

j:=0;

read(x);

while x0 do

begin

inc(j);

a:=x;

read(x);

end;

a:=j;

end;

end;

procedure main;

var

i,j:longint;

begin

fillchar(pd,sizeof(pd),true);

for i:=1 to n do

if a=k then inc(m);

//if pd[i] then inc(m);竟然只有90分。。。鄙视。。。

writeln(m);

end;

begin

init;

main;

end.

纯水题、

鉴定完毕、

program vijos;

var

n,t,k,i,j:longint;

a:array[1..200,1..200]of longint;

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

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

function pd:boolean;

var

j1:longint;

begin

for j1:=1 to g[i] do

if a=j then exit(true);

exit(false);

end;

begin

readln(n,k);

for i:=1 to n do

begin

j:=1;g[i]:=1;

while j0 do

begin

read(j);

a:=j;

inc(g[i]);

end;

while a=0 do dec(g[i]);

readln

end;

fillchar(f,sizeof(f),true);

for i:=1 to n do

if g[i]

对于为何如此做也有详细说明

http://chengchen2008.blog.163.com/blog/static/28346475200971112550757/

var

num,s,i,f,n,k:longint;

begin

readln(n,k);

for i:=1 to n do

begin

f:=0;read(num);

while num0 do

begin

read(num);

　　inc(f);

end;

if f>=k then inc(s);

end;

writeln(s);

end.

没有贪心 老老实实做

type

info=array[0..200] of longint;

var a:array[0..200] of info;

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

ct:array[0..200] of longint;

tot,m,n,k:longint;

//

procedure init;

var i,j,x:longint;

begin

readln(n,k);

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),1);

for i:=1 to n do

begin

while true do

begin

read(x);

if x=0 then break;

inc(a[i][0]);

a[i][a[i][0]]:=x;

end;

ct[i]:=a[i][0];

end;

end;

procedure sub(c:longint);

var i,j:longint;

begin

b[c]:=false;

for i:=1 to ct[c] do

begin

if b[a[c][i]]=false then continue;

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

if (a[a[c][i],0]

这个贪心也太离谱了一点了吧？？！！

数据居然是“贪”出来的！？

出数据的人真是衰人。。。。

╭∩╮(︶︿︶）╭∩╮鄙视！

……统计名单人数>=k的即为答案

凑数据的孩子

明明不是正解

真是的

http://blog.163.com/yy_0227_2009/

欢迎访问我的博客，有答案。。。

直接在提交框里打。。。。

非常刺激！！！

此题甚水..还交了两次

统计名单人数>=k的即为答案

begin

readln(n,k);

for i:=1 to n do begin

x:=-1;

repeat

read(y);

inc(x);

until y=0;

if x>=k then inc(tot); //否则1,9会WA...

readln;

end;

writeln(tot);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

一次AC！

是拓扑删点嘛？

我认为题意是：a与b交流，此时就算b愿意与c交流，b与c也不能交流

而不是：b可以同时与a,c交流。

这样才能当起难度2

这道题测试数据有问题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

n,k,l,p,g:longint;

begin

read(n,k); p:=1;

for l:=1 to n do

begin

while p0 do begin

read(p); inc(g); end;

if g-1

我也是用T人法做的，可能有点笨 时间复杂度是O(N^2)的

program victoria1021;

var

n,k,i,j,s,m,o,p:integer;

a:array[0..201,0..201] of integer;

b:array[1..200] of integer;

begin

readln(n,k);

for i:=1 to n do

begin

read(s); j:=0;

while s0 do begin a:=1; inc(j); read(s); end;

b[i]:=j;

readln;

end;

while true do

begin

o:=0; p:=0;

for i:=1 to n do

if (b[i]0) and (b[i]=k then inc(m);

write(m); halt;

end;

if p=n then begin write(0); exit; end;

end;

end.

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

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

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

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

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

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

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

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

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...　├ 标准行输出

　├ 错误行输出

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

Unaccepted 有效得分：70 有效耗时：0ms

var

f:array [0..201,0..201] of integer;

i,j,n,k,ans:integer;

begin

readln(n,k);

for i:=1 to n do

begin

read(j);

f:=1;

f[j,i]:=1;

end;

for i:=1 to n do for j:=1 to n do inc(f,f);

ans:=0;

for i:=1 to n do if f>=k then inc(ans);

writeln(ans);

end.

太粗心了，读入数据写错了，竟然过了7个数据！什么题目来的啊？？！！？？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

然后改一下读入数据就OK了哦。

这也叫难度为2的题目？？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第一次忘记=k的情况。。。

无语，忘了把freopen("vijos1021.txt","r",stdin);删掉居然都可以拿50分