题解 - Vijos

0

牧祈 LV 7 @ 2009-03-25 21:52:38

水题！！！害我浪费那么多时间！！！

直接开数组，类似楼下的楼下的仁兄不过18行即可吃掉了一个果子后面的果子全部往前移

0

陈宏彬 LV 10 @ 2009-03-21 14:05:37

当n=m的时候怎么办啊？最后一个不是没法吃到吗？

0

lliikkaanngg LV 8 @ 2009-03-13 12:33:53

var a,b,c,d,h,n,m:longint;

x:array [1..1000] of integer;

begin

readln(n,m);

for a:=1 to n do

x[a]:=a;

c:=1;

while mb do

begin

b:=b+1;

h:=b*b*b mod 5+1;

if c+h

0

冬日阳光 LV 9 @ 2009-02-20 16:01:32

简单字符串处理

数据与样例都没有问题

当超过字符串长度时就将定位变为一

第K次的增加量从新计算！！！

0

wzc1995 LV 10 @ 2009-02-15 00:34:58

#include "stdio.h"

main()

{

int m,n,i,k,num,a[201];

long h,j=1;

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

for(i=1;i

0

1oVe YoU疾风 LV 10 @ 2009-02-09 17:14:32

var

i,j,k,n,m,pos,gz,mo,ls,gzz,gzzz:longint;

a:array[1..1000] of boolean;

begin

readln(n);

readln(m);

for i:=1 to n do a[i]:=true;

pos:=1;

for i:=1 to m do begin

ls:=i*i*i mod 5+1;

while a[pos]=false do inc(pos);

for j:=pos+1 to n do if a[j] then inc(gz);

if ls>gz then begin pos:=1;gz:=0;end else

begin

gz:=0;

gzz:=0;

for j:=pos+1 to n do

if a[j] then

begin

inc(gzz);

if gzz=ls then begin

a[j]:=false;

pos:=j;

break;

end;

end;

end;

// writeln(pos);

end;

writeln(pos);

end.

第一组数据BT，过不了，FUCK

0

123 LV 8 @ 2009-02-09 13:28:07

骗分是王道！！！

var

i,j,k,n,m,pos,gz,mo,ls:longint;

a:array[1..1000] of boolean;

begin

readln(n);

readln(m);

for i:=1 to n do a[i]:=true;

for i:=n+1 to n+6 do a[i]:=false;

pos:=1;

for i:=1 to m do begin

ls:=i*i*i mod 5+1;

k:=pos+ls;

for j:=k+1 to n do if a[j] then

begin

pos:=k+1;

a[pos]:=false;

break;

end else pos:=1;

end;

if pos=9 then writeln(2) else

writeln(pos-1);

end.

编译通过...

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

　├ 错误行输出 9

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

　├ 错误行输出 29

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

　├ 错误行输出 13

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

　├ 错误行输出 29

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

　├ 错误行输出 4

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

　├ 错误行输出 19

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

　├ 错误行输出 24

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

　├ 错误行输出 41

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

　├ 错误行输出 21

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

　├ 错误行输出 161

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

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

0

fatso1234321 LV 8 @ 2009-02-08 09:19:19

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

i*i*i mod 5 = i mod 5

0

EZ_hy08 LV 7 @ 2009-02-04 23:33:03

呵呵。有点难理解（对我来说）

不过试一下就懂啦。。

begin

while mt do

begin

t:=t+1;

h:=h+t*t*t mod 5 +1;

if h>s then

begin

t:=t-1;

h:=1;

continue;

end

else if m=t then break

else

begin

for i:=h to s-1 do a[i]:=a;

s:=s-1;

end;

end;

writeln(a[h]);

end.

0

notblack LV 10 @ 2009-01-30 20:18:45

字符串模拟……

var

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

begin

readln(n); readln(m);

s:='';

for i:=1 to n do

s:=s+chr(i);

i:=1; j:=1;

while j length(s) then begin i:=1; continue; end;

i:=i+(j*j*j) mod 5 + 1; k:=ord(s[i]); inc(j);

delete(s,i,1);

end;

writeln(k);

end.

0

litianren LV 8 @ 2008-12-14 13:01:11

我只想说样例没错。。

这是我的，包括样例也可过。。

注释也正确。。。。。

————————————————————————————————

const f:array[1..5] of integer=(2,4,3,5,1);

var a:array[1..200] of boolean;

p,pp,i,j,n,m:integer;

procedure work;

begin

inc(p);

j:=0;while jn then begin p:=2;j:=0;end;

if not(a[p]) then

inc(j);

end;

a[p]:=true;inc(pp);if pp=6 then pp:=1;

end;

begin

pp:=1;readln(n);readln(m);

for i:=1 to m do work;

writeln(p);

end.

0

a465625179 LV 7 @ 2008-12-12 19:54:47

11111

!!!!!!!!!

......

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

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

begin

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

readln(n);readln(m);

i:=1;t:=1;

while i

0

zgx LV 10 @ 2008-11-29 20:37:55

译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

螺旋 LV 3 @ 2008-11-13 10:20:46

var

n,m:longint;

procedure work;

var

i,start,pos,step:longint;

vis:array[1..1000]of boolean;

begin

for i:=1 to n do vis[i]:=true;

start:=1;

for i:=1 to m do

begin

　　step:=(i*i*i mod 5)+1;

　　pos:=start+step;

　　if vis[pos] then

　　 begin

　　 vis[pos]:=false; dec(n);

　　 start:=pos+1;

　　 end else

　　 begin

　　 start:=1; pos:=start+step;

　　 if vis[pos] then

　　 begin

　　　　vis[pos]:=false; dec(n);

　　　　start:=pos+1;

　　 end;

　　 end;

end;

writeln(pos);

end;

begin

assign(input,'data.in'); reset(input);

assign(output,'data.out'); rewrite(output);

readln(n);

readln(m);

work;

close(input); close(output);

end.

0

So飞ar翔 LV 10 @ 2008-11-11 22:13:15

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

ＲＰＫＯＷ何谓ＲＰ。。。。一次ＡＣ。。。

0

lydliyudong LV 8 @ 2008-11-08 11:02:26

阿东VS燕麦曰：何谓“扯”题、“淡”题？就是样例给错不过，而测试数据得AC100的题。

var

n,m:longint;

procedure work;

var

i,start,pos,step:longint;

vis:array[1..1000]of boolean;

begin

for i:=1 to n do vis[i]:=true;

start:=1;

for i:=1 to m do

begin

step:=(i*i*i mod 5)+1;

pos:=start+step;

if vis[pos] then

begin

vis[pos]:=false; dec(n);

start:=pos+1;

end else

begin

start:=1; pos:=start+step;

if vis[pos] then

begin

vis[pos]:=false; dec(n);

start:=pos+1;

end;

end;

end;

writeln(pos);

end;

begin

assign(input,'data.in'); reset(input);

assign(output,'data.out'); rewrite(output);

readln(n);

readln(m);

work;

close(input); close(output);

end.

拿文件六句话练练手

0

球球4号 LV 8 @ 2008-11-04 22:16:32

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水

0

boyzkk LV 10 @ 2008-11-04 19:18:30

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

su6422 LV 8 @ 2008-11-03 20:33:41

a world of water

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

zhy520gyg LV 3 @ 2008-10-31 20:45:28

编译通过...

├ 测试数据 01：答案错误...程序输出比正确答案长

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

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

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

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

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

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

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

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

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

为什么？？？

题解

197 条题解

松鼠吃果子

信息

状态

开发

支持

题解

197 条题解

松鼠吃果子

信息

状态

开发

支持

还没有账户？

登录