#include

using namespace std;

int main() {

**int n,a,b,c,i;for(cin>>n,a=b=1,i=2;i

program p1093;

var

t:array[1..10001] of int64;

i,n:integer;

begin

readln(n);

t[1]:=1;

t[2]:=1;

for i:=3 to n do

t[i]:=(t+t) mod 7654321;

writeln(t[n]);

end.

如果你认真地想一想，这题肯定是非波那契数。只不过用数组会爆的。最好你自己想想

用递归超时了4个点,结果看了题解才知道是斐波拉契数列

program po;

var

n,i:integer;

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

begin

readln(n);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=(a+a[i-2】）;

writeln(a[n]mod 7654321);

end.

竟然不对

题目有错

错的反而对

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

我开始也用的递归...

Var

n,i:integer;

a1,a2,a3:longint;

Begin

readln(n);

a1:=1;

a2:=1;

for i:=3 to n do

begin

a3:=(a1+a2) mod 7654321;

a1:=a2;

a2:=a3;

end;

if (n=1) or (n=2) then writeln(1)

else writeln(a3);

End.

无语老~~写了个朴素的递归超时= =，改回递推。

orz……我口怜滴AC率……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

为什么我碰到FIB就递推....已经发生过一次了啊....无语

program ex1;

var

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

f:array[1..10000,1..4] of longint;

begin

readln(n);

f[1,1]:=1; f[1,2]:=0; f[1,3]:=0; f[1,4]:=0;

for i:=2 to n do

begin

f:=f;

f:=f+f;

f:=f;

f:=f+f;

end;

m:=(f[n,1]+f[n,2]+f[n,3]+f[n,4]) mod 7654321;

writeln(m);

readln;

end.

开始没有斐波拉，用记忆化，结果最后一个点过不去。

发现大家都斐波拉后，用原来的记忆化试了一把，把数全列出来，发现真是个斐波拉。于是就斐波拉了。

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var i,n:longint;a1,a2,a3:longint;

begin

readln(n);

a1:=1;a2:=1;

if n=1 then writeln(a1)

else

if n=2 then writeln(a2)

else

begin

for i:=3 to n do

begin

a3:=(a1+a2) mod 7654321;

a1:=a2;

a2:=a3;

end;

writeln(a3);

end;

end.

fib~~~~

water~~~

no.3399 再一个就破3400咯~~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

main(){int n,i,a=1,b=0,c;scanf("%d",&n);for(i=1;i7654321) c%=7654321;a=b;b=c;}printf("%d",c);}

一句话

斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契斐波拉契

#include

main(){

int n,i;

int dp[10001];

int s=0;

dp[1]=1;

dp[2]=1;

scanf("%d",&n);

if(n==1||n==2)

{printf("1");return 0;}

for(i=3;i

斐波拉契数列……最开始忘了MOD ，哎，细节啊……

哪位大牛能不能证明一下这是个斐波拉契数列

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

就是斐波拉其数列 注意每项都要mod7654321 即x[i]:=(x+x) mod 7654321);

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

readln(n);

f[1]:=1;f[2]:=1;

for i:=3 to n do f[i]:=(f+f)mod 7654321;

writeln(f[n]);

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

n,i:integer;

a:array [1..10000] of int64;

begin

read(n);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a+a;

write(a[n] mod 7654321);

end.