program asd;

var

f,l,i,n,s:longint;

begin

read(n);

f:=1;

l:=1;

for i:=3 to n do

begin

s:=f+l;

l:=f mod 7654321;

f:=s mod 7654321;

end;

write(f);

end.

const

mo=7654321;

var

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

t,i,n:longint;

begin

readln(n);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

begin

a[i]:=a+a;

if a[i]>mo then

a[i]:=a[i] mod mo;

end;

writeln(a[n]);

end.

//一定要mod 7654321額

5555555555~~~

吧7654321打成了754321……

program yun

var i,n:integer;

　　f1,f2:longint;　

　　

begin

　readln(n);

　f1:=1;f2:=0;　

　for i:=1 to n do

　　begin　

　　　f2:=f1+f2;　

　　　f1:=(f2-f1)mod 7654321;　

　　　f2:=f2 mod 7654321;

　end;　

　writeln(f2);

end.　

　

program da;

var i,s,j,n,a2,a1:longint;

begin

readln(n);

a1:=1;

a2:=1;

i:=3;

while i

斐波纳契数列。

1 1 2 3 5 8 13 21.......

var n,a,b,i,t:longint;

begin

readln(n);

a:=1; b:=1;

for i:=3 to n do begin t:=a; a:=(a+b) mod 7654321; b:=t; end;

writeln(a);

end.

斐波那契,一边求下一个数,一边除以7654321

var i,n:integer;

　　f1,f2:longint;　

　　

begin

　readln(n);

　f1:=1;f2:=0;　

　for i:=1 to n do

　　begin　

　　　f2:=f1+f2;　

　　　f1:=(f2-f1)mod 7654321;　

　　　f2:=f2 mod 7654321;

　end;　

　writeln(f2);

end.　

　

哈哈，啥递归，数列。。

我用数组也可通过；；

我用递推也。。。。。。

逐加 规律是 1 2 3 4 5 6 7（数祖列标a）

1 1 2 3 5 8 13

即 An=An-1+An-2

........

我们电脑组都叫它"傻不垃圾数列"

什么?非波那契数用数组???

　f2:=f1+f2;

　f1:=f2-f1;

多简单!!!

还省空间（只用4个变量，2个integer,2个longint）

编译通过...

├ 测试数据 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:integer;

　　f1,f2:longint;　

　　

begin

　readln(n);

　f1:=1;f2:=0;　

　for i:=1 to n do

　　begin　

　　　f2:=f1+f2;　

　　　f1:=(f2-f1)mod 7654321;　

　　　f2:=f2 mod 7654321;

　end;　

　writeln(f2);

end.　

　

var n,i,j:longint;

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

begin

read(n);

a[1]:=1;

j:=1;

for i:=1 to n-1 do

begin

j:=(j+1)mod 3;

a[j]:=(a[(j+2)mod 3]+a[(j+1)mod 3])mod 7654321;

end;

writeln(a[j])

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,j:longint;

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

begin

read(n);

a[1]:=1;

j:=1;

for i:=1 to n-1 do

begin

j:=(j+1)mod 3;

a[j]:=(a[(j+2)mod 3]+a[(j+1)mod 3])mod 7654321;

end;

writeln(a[j])

end.

#include

using namespace std;

int main()

{

long int n;

cin>>n;

int i;

long int a[n];

a[1]=1;

a[2]=1;

for(i=3;i=7654321) a=a%7654321;

a[i]=a+a;}

cout

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include "stdio.h"

main()

{

int n,i;

long x[10001];

scanf("%d",&n);

x[1]=1;

x[2]=1;

for(i=3;i

#include

int main(){

int n,i;

long x[10001];

scanf("%d",&n);

x[1]=1;

x[2]=1;

for (i=3;i

完全没想法了……

第一组数据没过，说是c语言错误号1，其他都过了，完全不知道原因

于是由递推改成菲薄拉稀数列了……

非波那契数

关键是数组会暴（一般情况）

要 mod 7654321

for i:=3 to n do begin t:=a; a:=(a+b) mod 7654321; b:=t; end;

program LE17;

var n,a,b,i,t:longint;

begin

readln(n);

a:=1; b:=1;

for i:=3 to n do begin t:=a; a:=(a+b) mod 7654321; b:=t; end;

writeln(a);

end.