纪念vijos第一道不用数组的题目！

除了a+b。。。。

DXE-SYF

这个题目究竟什么意思啊，我过了也不知道怎么过的，真是史上最funny的AC啊！

program fdsf;
var a,b,n,m,total:integer;
readln(n,k);
for a:=1 to n do
begin
readln(b);
while b<>0 do
begin
inc(total);
readln(b);
end;
if total>=k then inc(m);
total:=0;
end;
writeln(m);
end.

点击查看程序源码+详细题解

如果一个人有p(p>=k)个朋友,蛋是其中有q个朋友的朋友数小于k,那么这个人实际朋友数应该按p-q算吧.测试数据里有p-q

题意有点坑

program ex;

var s:string;

　　n,k,z,r,i,j:longint;

begin

readln(n,k);

z:=0;

for i:=1 to n do

　　begin

　　 readln(s);

　　 r:=0;

　　 for j:=1 to length(s) do

　　　　 if s[j]=' ' then r:=r+1;

　　 if r>=k then z:=z+1;

　　end;

writeln(z);

end.

这个跟贪心有什么关系……难度还标成了2，绝对坑X

题意是：n个人[已经]去参加舞会了，然后统计每个人可以交谈的人数，找出大于等于k的人就可以了，不要多想

叙述太**了啊。。。

直接简单的模拟。计算

连数组都不要开。变量反复用。。。

var a,b,n,k,m,total:integer;

begin

readln(n,k);

for a:=1 to n do

begin

read(b);

while b0 do

begin

inc(total);

read(b);

end;

if total>=k then inc(m);

total:=0;

end;

writeln(m);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

点击这里查看

题目叙述很坑爹,其实晚会已经邀请n个人去参加舞会,

而求m,只是表示这m个人都至少有k个朋友,而不是只邀请m个人去参加舞会

大家要注意啦~~!!!!

#include

int main(void) {

int n,k,a,b,m=0;

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

while(b=0,n--) while(scanf("%d",&a),a) if(++b==k) m++;

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

return 0;

}

var n,k,i,j,x,m:longint;

begin

readln(n,k);

for i:=1 to n do

　　begin

　　 read(j);

　　 x:=0;

　　 while j0 do

　　　　begin

　　　　 inc(x);

　　　　 read(j);

　　　　end;

　　 if x>=k then inc(m);

　　end;

writeln(m);

end.

我确认我一开始看错题了，不是看简单了，而是看难了...

我觉得这题不是数据水，而是题太水了...

var n,k,i,j,x,m:longint;

begin

readln(n,k);

for i:=1 to n do

begin

read(j);

x:=0;

while j0 do

begin

inc(x);

read(j);

end;

if x>=k then inc(m);

end;

writeln(m);

end.

program ex;

var s:string;

n,k,z,r,i,j:longint;

begin

readln(n,k);

z:=0;

for i:=1 to n do

begin

readln(s);

r:=0;

for j:=1 to length(s) do

if s[j]=' ' then r:=r+1;

if r>=k then z:=z+1;

end;

writeln(z);

end.

#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

var

talk:array[1..200,1..200] of boolean;

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

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

begin

readln(n,k);

for i:=1 to n do

begin

read(x);

while x0 do

begin

talk:=true;

read(x);

end;

readln;

end;

for i:=1 to n do

for j:=1 to n do

if talk and talk[j,i] then

begin

inc(people[i]);inc(people[j]);

talk:=false;talk[j,i]:=false;

end;

for i:=1 to n do

if people[i]>=k then

inc(m);

writeln(m);

end.

好水的题，当之无愧的贪心！！o(∩_∩)o...哈哈，重建了偶的自信心，ACAC 偶来了！！

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

s:array[1..3000] of longint;

begin

read(n,k);

for i:=1 to n do

begin

read(j);

while j0 do

begin

read(j);

if ji then s[i]:=s[i]+1;

end;

end;

for i:=1 to n do s[i]:=s[i]+1;

for i:=1 to n do

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

writeln(f);

end.

我错了。。。我对不起这道题的AC率。。。

在提交框里面编，结果No compiled了2次。。。

Victoria的舞会1

(^__^)

为几天前的一星纪念！