编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

模拟

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

那松鼠永远吃不到第一个果子= =。

除了题目难看懂 其他没难的

纯模拟就可以了

#include

using namespace std;

int main()

{

int n,m,i,nowstep;

cin>>n>>m;nowstep=0;

for(i=1;in)

nowstep=nowstep-n+1;

}

cout

楼下的解法是错的

例如，输入（10 3）， 输出是4，而实际上答案为5；

再比如，输入（200 200），答案与输入（200 100）时相同……

能够AC大概是因为数据太弱了……挺无语

耐心模拟吧，Joseph问题的改版

var i,j,k:longint;

　　 s,n,m:longint;

begin

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

for i:=1 to m do begin

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

if s+1>n then s:=i*i*i mod 5+2

else if i=m then break

else s:=s+1;

end;

writeln(s);

end.

( 2009-9-30 20:42

var i,j,k:longint;

s,n,m:longint;

begin

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

for i:=1 to m do begin

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

if s+1>n then s:=i*i*i mod 5+2

else if i=m then break

else s:=s+1;

end;

writeln(s);

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 p1078;

var i,post,tot,t,n,m,p:longint;

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

begin

readln(n); readln(m);

fillchar(a,sizeof(a),0); post:=1;i:=0;

while i

var n,m,i,s:longint;

begin

readln(n);

readln(m);

s:=1;

for i:=1 to m do begin

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

if s+1>n then

s:=i*i*i mod 5+2

else if i=m then break

else s:=s+1;

end;

writeln(s);

end.

太水了...

随便AC..

const int step[5] = {1,2,4,3,5};每5次一个循环，此数组记录跳过的步数。

数据不是很大，可以直接用数组模拟，而且 0ms 秒杀。

不过，如果N

简单却猥琐的模拟

其实不算很难 如果想难了的话反而会wa（我就是代表...）

但是不得不承认第一个数据有一点小猥琐.....

如果过不去的话 可以考虑用静态链表..应该可以过去的 但是那样的话就不算什么完全得水题了...

简单的模拟

如下下下下牛所说

那个第一个数据是什么? 老过不去.

求助下

program lyc;

var n,m,now,i,j,ans:integer;

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

begin

readln(n);

readln(m);

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

now:=1;i:=1;

for i:=1 to m

do

begin

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

if now>n then begin now:=1;while now>n do now:=now+(i*i*i mod 5)+1; end;

if i=m then begin ans:=a[now]; writeln(ans); exit; end;

for j:=now to n do a[j]:=a[j+1];

dec(n);

end;

end.

水题水题我最爱~~~

杀生为护生，斩业非斩人

該死,想的太複雜,又wa一次

我的AC率啊.......

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

简单模拟，不要想太多

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program ex;

const d:array[0..4]of longint=(1,2,4,3,5);

//jump times:5,1,2,3,4...

var now,i,j,n,m,t:longint;

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

procedure find;

var i,j,k,q:longint;

flag:boolean;

begin

flag:=true;

k:=now;

q:=d[t];

while q0 do

begin

while a[k]=0 do

begin

inc(k);

if k>n then

begin

flag:=false;

break;

end;

end;

inc(k);

dec(q);

if k>n then

begin

flag:=false;

break;

end;

while a[k]=0 do

begin

inc(k);

if k>n then

begin

flag:=false;

break;

end;

end;

end;

if flag=false then

begin

now:=1;

find;

end

else

now:=k;

end;

begin

readln(n);

readln(m);

for i:=1 to 200 do a[i]:=i;

now:=1;

for i:=1 to m do

begin

t:=i mod 5;

find;

if i=m then

begin

writeln(a[now]);

halt;

end;

a[now]:=0;

inc(now);

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

水死了……链表？

干什么用……

我弱弱的用不进去啊……

for i:=1 to m do

begin

if j+i*i*i mod 5+1>n then j:=1;

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

if im then for ii:=j to n-1 do a[ii]:=a[ii+1];

dec(n);

end;