这个..1 1 2 3 5 8……真的是某著名数列

纯菲波那契数列，没什么说的……

program p1093;

var

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

n,i:longint;

begin

readln(n);

fillchar(a,sizeof(a),0);

a[1]:=1;

a[2]:=1;

for i:=2 to n do

a[i]:=a+a;

writeln(a[n]mod 7654321);

end.

这样就错了4个点。

众牛神，可不可以告诉我“mod7654321”为什么要放在循环中？？？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

如果你把样例的表自己画出来的话，你就会发现每层的数目为1，1，2，3，5......

然后你就会发现这个长得酷似某个著名的数列。

var

a,b,c,n,i:longint;

begin

readln(n);

a:=1;b:=1;c:=2;

for i:=3 to n do

begin

c:=(a+b) mod 7654321;

a:=b;

b:=c;

end;

if n

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

递推：

a:=a mod 7654321;

a:=a mod 7654321;

a:=(a+a)mod 7654321;

a:=(a+a)mod 7654321;

program wenkesheng;

var

x,y,z,i,n:longint;

begin

readln(n);

x:=1;

y:=1;

z:=1;

for i:=3 to n do

begin

　　 z:=(x+y)mod 7654321;

　　 x:=y;

y:=z;

end;

writeln(z);

end.　　　　

看不懂的dp吧

f[i][1]:=(f[3]+f[2])mod 7654321;

f[i][2]:=(f[4]+f[1])mod 7654321;

f[i][3]:=f[1];

f[i][4]:=f[2];

1：历史 2：地理 3：政治 4：综合

方程不难想

请用鼠标拖动选择下列文字即可显示题解

var n,i:integer; s:array [1..10000] of longint;begin s[1]:=1; s[2]:=1; readln(n); for i:=3 to n do s[i]:=(s+s) mod 7654321; writeln(s[n]);end.

膜拜搜索AC的牛们 我搜索怎么搞才90分最后无奈抄袭的大牛们的菲薄拉起

program P1093;

var n,s,k:longint;

procedure try(m,p:integer);

begin

if p

var

n,i:longint;

f:array[1..20000] of longint;

begin

readln(n);

f[1]:=1;

f[2]:=1;

for i:=3 to n do

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

writeln(f[n]);

end.

记忆化搜索，把地理和历史的记录下来就可以Ac了。

#include "stdio.h"

#include "memory.h"

#define MAXINT 7654321

int n;

int D[1000000];

int L[1000000];

int init(){

FILE *fpin = stdin;

fscanf( fpin, "%d", &n);

return 0;

}

int mdfs( int depth, char state){

if( depth == n-1) return 1; // Bug 1: ACL 1.

if( state == 'Z'){

return mdfs( depth+1, 'L')%MAXINT;

}else if( state == 'L'){

if( L[n-depth] == 0){

L[n-depth] = ( mdfs( depth+1, 'Z')+mdfs( depth+1, 'D'))%MAXINT;

}

return L[n-depth];

}else if( state == 'D'){

if( D[n-depth] == 0){

D[n-depth] = (mdfs( depth+1, 'L')+mdfs( depth+1, 'H'))%MAXINT;

}

return D[n-depth];

}else if( state == 'H'){

return mdfs( depth+1, 'D')%MAXINT;

}

}

int main(){

FILE *fpout = stdout;

init();

memset( D, 0, sizeof D);

memset( L, 0, sizeof L);

fprintf( fpout, "%d\n", mdfs( 0, 'Z'));

return 0;

}

递推好啊递推好啊

小菲易看难理解啊

我靠我靠我靠我靠我靠我靠我靠我靠我靠我靠

这有问题吧?

看看我囧死的程序：

{program lyc;

var n,i,j:longint;

a:array[0..10000] of longint;

begin

a[0]:=0;a[1]:=1;a[2]:=1;

readln(n);

if n

　f[i]:=(f+f)mod 7654321

这一条语句才是问题的核心，不过谁能解释一下。

斐波那契数列

var

x,y,z,i,n:longint;

begin

readln(n);

x:=1;y:=1;z:=1;

for i:=3 to n do

begin

z:=(x+y)mod 7654321;

x:=y;y:=z;

end;

writeln(z);

end.

数学归纳法...

可以设a,b,c,d分别代表四科...

动态规划...