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

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

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

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

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

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

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

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

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

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

超级简单，谁先取谁就赢

我的程序

var

k,p,i:integer;

begin

readln(k);

for i:=1 to k do

begin

readln;

readln(p);

readln;

if p=1 then writeln('lolanv');

if p=0 then writeln('wind');

end;

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

数学方法论证。。。

又N为偶数。。。

小学就做过这道题目。。。。

我寒。。

先取先赢。。。。我压根就没读其他数据。。。。直接readln掉了

靠，n是偶数！

脑抽题，先取的必定胜

贴标成都帖wa了N次

话说如果数列是“1 9 1”那是不是后手的赢呢？

好像先手不一定赢吧。

program lx;

var

i,k,n:longint;

w1,w2,t:longint;

f:byte;

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

function max(a,b:longint):longint;

begin

if a>b

then begin max:=a;t:=a;end

else begin max:=b;t:=b;end;

end;

procedure work(f:byte;left,right:longint);

begin

if (left>0)and(right>0)and(left0) do

begin

readln(n);

readln(f);

w1:=0;

w2:=0;

for i:=1 to n do

read(a[i]);

work(f,1,n);

if (w1>w2)or((w1=w2)and(f=0)) then writeln('wind') else writeln('lolanv');

k:=k-1;

end;

end.

为什么错啊

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

换了一种思路……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

可我还是不懂前一种方法哪错了？请大牛指教……

program ccc;

var

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

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

begin

readln(n);

for i:=1 to n do

readln(k);

readln(n);

for j:=1 to k do

if n=0

then write('wind')；

end.

搜索验证

where is RP????

第一次竟然超时？复杂度O（1）啊！

无语，水题也浪费了AC率，恩..............今天RP真低

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

水水水水水.............................................

var k,i:byte;j:array[1..100]of byte;

begin

readln(k);

for i:= 1 to k do

begin

readln;

readln(j[i]);

readln;

end;

for i:=1 to k do

begin

if j[i]=0 then writeln('wind')

else writeln('lolanv');

end;

end.

.....................

无语

先来先胜

莫名错误了5次的水题

尽情的鄙视我吧。。。

回xiaoyi28063

你先手取2试试

#include

int main(){

int k,i,n,win;

scanf("%d",&k);

for (i=1;i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

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

begin

readln(n);

for i:=1 to n do

begin

readln(k);

readln(n);

for j:=1 to k do

read(a[i]);

if n=0

then write('wind')

else write('lolanv');

end;

end.

这也能过 太虚伪拉

我自己都知道打错了~~

无语~~~~~~~~~~

一直在苦苦得找规律。。。结果是先手必胜

打击ING。。。 真的是水漫VIJOS。。。

但是还是有一事不明。。。。

var k,i,j:byte;

begin

readln(k);

for i:= 1 to k do

begin

readln;

readln(j);

if j = 0 then writeln('wind')

else writeln('lolanv');

readln;

end;

end.

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

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

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

最多10次的循环怎么弄出25MS来的？？？？诡异事件啊！！！！

program sa;

var

k,b,c,i,j:integer;

n:array[1..100]of integer;

begin

readln(k);

i:=0;

begin

repeat

readln(c);

readln(n[i]);

i:=i+1;

for i:=1 to c do

readln(b);

until i=k;

end;

for i:=1 to k-1 do

if n[i]=0

then

writeln('wind')

else

writeln('lolanv');

end.

大牛些

我哪错了啊..

怎么１０个点全部超时啊..

"手快有,手慢无",我改编一下"手快赢,手慢输"

iostream完美ac

使用cin.ignore(1000000l,'\n')即可