恩····标准的骗分题解，小学生AND初一的就不要看了，免得带坏青少年··

var

n,k,i,j,x,m:integer;

s:ansistring;

begin

readln(n,k);

for i:=1 to n do

begin

readln(s);

x:=0;

for j:=1 to length(s) doif s[j]'0'then if s[j]=' 'then inc(x);if x>=kthen inc(m);end;

write(m);

end.

var

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

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

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

k,n:longint;

procedure init;

var

i,j,t:longint;

begin

readln(n,k);

for i:=1 to n do

begin

t:=0;

read(j);

while j0 do

begin

inc(t);

a:=j;

read(j);

end;

num[i]:=t;

readln

end;

end;

function shan:boolean;

var

i,j:longint;

begin

for i:=1 to n do

if b[i] and (num[i]

有哪位大牛能解释一下"踢人"相比于打表优化在哪里吗?我想了很久,也不明白.我很水,请大家指教

program vic;

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

s:array[1..100000]of integer;

begin

readln(n,k);

fillchar(s,sizeof(s),0);

for i:=1 to n do begin

read(j);

while j0 do begin

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

read(j);

end;

end;

m:=0;

for i:=1 to n do

if s[i]>=k then m:=m+1;

writeln(m);

end.

program cc;

var a:array[1..100000] of integer;

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

begin

readln(n,k);

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

for i:=1 to n do

begin

read(q);

while q0 do

begin

inc(a[i]); read(q);

end;

end;

j:=0;

for i:=1 to n do

if a[i]>=k then inc(j);

writeln(j);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

省赛回来的第一次秒杀

这个数据还不够有代表性啦~~实际上还应该考虑一下当某个人的小花名册人数小于k的时候，他当然被踢出了，但跟他有关系的其他人是不是也ok，因为他们能交谈的人就少了一个了~~

#include

using namespace std;

int main()

{

int n,k,t,s(0),m(0);

cin >> n >> k;

for(int i = 0;i < n;++i)

{

while(cin >> t,t != 0) ++s;

if(s >= k) ++m;

s = 0;

}

cout

看了 类型 贪心 然后 死往 拟矩阵 上 套 ，搞不出来 ……

再 看题解 ， 晕死 ， 原来 数据 就是 要 真正 的 “贪心” ……

不过 还是 没写 计数 的 去 贪……

删 边 ……

40 行 和 20 行 差距也 不大 ……

var

n,m,i,t,k,sum:integer;

begin

readln(n,k);

sum:= 0;

for i:= 1 to n do

begin

read(t); m:= 0;

while t0 do

begin

read(t);

inc(m);

end;

if (m>=k) then inc(sum);

end;

writeln(sum);

end.

#include

using namespace std;

main(){

int a,b,m=0;

cin>>a>>b;

for (int i=0;i>j;

if (j!=0)

{

l++;

}} while(j!=0);

if (l>b)

m++;

}

cout

#include

using namespace std;

int main()

{

int n,k,m;

int t,i;

scanf("%d%d",&n,&k);

m=t=0;

while(n--)

{

while(scanf("%d",&i),i)

t++;

if(t>=k)m++;

t=0;

}

printf("%d\n",m);

return 0;

}

这题有点简单！我的好像很短~~是不是测试数据太弱了啊！！

program p1021;

var i,n,k,s:integer;

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

begin

readln(n,k);

for i:=1 to n do

begin

read(s);

while s0 do begin inc(a); read(s); end;

end;

for i:=1 to n do

if a[i]>=k then s:=s+1;

writeln(s);

end.

秒杀- -

这难道就是传说中的难度2？

极水数据。。这样也能过。。

program tt;

var i,j,n,k,m,p:integer;

s:string;

begin

readln(n,k);

p:=0;

for i:=1 to n do begin

readln(s);

m:=0;

for j:=1 to length(s) do

if s[j]=' ' then inc(m);

if m>=k then inc(p);

end;

writeln(p);

readln;

end.

这个.....这个...难度也为2？？？？？！！！

简单

没学过图的也能做

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

终于AC了，就因为k加了1，让我提交了十几次，我的通过率啊————

program p1021;

var

n,k,i,t,j,tot:integer;

a:array[1..200] of set of 0..200;

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

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

m:boolean;

procedure re(k:integer);

var

t:integer;

begin

while 1>0 do

begin

read(t);

if not(t=0) then

begin

inc(b[k]);

a[k]:=a[k]+[t];

end

else begin

readln;

exit;

end;

end;

end;

begin

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

fillchar(b,sizeof(b),0);

fillchar(p,sizeof(p),0);

m:=true;

readln(n,k);

tot:=n;

for i:=1 to n do re(i);

while m do

begin

t:=0;

for i:=1 to n do

if (b[i]