编译通过...

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

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

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

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

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

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

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

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

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

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

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

2次AC 郁闷啊。

原来运算过程中还要去模啊。

var n,i:longint;

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

begin

read(n);

f[1]:=1;

for i:=2 to n do

f[i]:=(f+f)mod 7654321;//太重要了

writeln(f[n] mod 7654321);

end.

program v1093;

var

a,b,c:longint;

n,i:longint;

begin

readln(n);

a:=1; b:=1;

if n

水題總是2次Ac,鬱悶.ing！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水题,1次AC...

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

using namespace std;

int main(){

long long a,b,c,i,n;

a=1;b=1;

cin>>n;

for(i=3;i

斐波那契，为甚么呢？我相信各位的进取心不止限于自己找规律吧……

详细题解请看

http://chengchen2008.blog.163.com/blog/static/2834647520097211036681/

找规律，发现时斐波那契数列

#include

int a[10009];

main()

{

int n,i,j;

scanf ("%d",&n);

a[1]=1;a[2]=1;

for (i=3;i

蛮简单的题目

斐波那契数列

做的时候

a[i]:=(amod 7654321+amod 7654321)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

var f:array[0..10003,0..4]of longint;

i,n:longint;

begin

readln(n);

f[1,1]:=1;

for i:=2 to n do

begin

f:=f mod 7654321;

f:=(f+f) mod 7654321;

f:=(f+f) mod 7654321;

f:=f mod 7654321;

end;

for i:=2 to 4 do f[n,1]:=(f[n,1]+f[n,i])mod 7654321;

write(f[n,1]);

end.

Flag 　　 Accepted

题号 　　P1093

类型(?) 　　模拟

通过 　　4683人

提交 　　10204次

通过率 　　46%

难度 　　1

递推.

菲波拉契怎么回事?

var i,n,a,b,c,d,ai,bi,ci,di:longint;

begin

readln(n);

a:=1;b:=0;c:=0;d:=0;

for i:=1 to n-1 do

begin

ai:=c;bi:=d;ci:=a+d;di:=b+c;

a:=ai mod 7654321;

b:=bi mod 7654321;

c:=ci mod 7654321;

d:=di mod 7654321;

end;

writeln((a+b+c+d) mod 7654321)

end.

var f1,f2,f3:longint;

n,i :integer;

begin

readln(n);

f1:=1;

f2:=1;

i:=2;

while (i0 then writeln(f3 mod 7654321)

else writeln(1);

end.

var i,n:integer;

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

begin

a[1]:=1;

a[2]:=1;

a[3]:=2;

a[4]:=3;

a[5]:=5;

readln(n);

for i:=6 to n do

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

writeln(a[n]);

end.

program p_1;

var s:array[1..2] of integer;

n,a:longint;

begin

read(n);

if n

编译通过...

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

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

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

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

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

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

#include

int s(int n){

int a=1,b=1,t,i;

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

for (i=3;i

感谢guori12321，很详细！

我想再贴下~

这个题两个方法：1. 列几个猜想一下，发现是小菲，再证明一下，发现真的是小菲。（证明：把四门课分成两类，一类是后面只有一科的（叫单），一类是后面有两种可能科目的（叫双），那么政、综是第一类，史、地是第二类，那么第n科的方法数就是第n-1科中的单的数+双的数*2，又单的数+双的数=f[n-1],则f[n]=f[n-1] + f[n-1]中双的数目，又所有的四科都能且只能推出来一门双的科，那么f[n-1]中双的数目就是是f[n-2],有f[n]=f[n-1]+f[n-2]，总算写完了。。。)然后就出来了

2.相当于模拟。 dfs是过不去的，记忆化搜索的效果是很好的。虽然只多了个 if f0 then 但优化的结果是AC，是个不错的方法。

菲波那契数列

f(i)=f(i-1)+f(i-2)

注意,还要思考"mod"

想了半天都没有一点思路。。就到这里看大牛的思路啦。。（我够贱。。。）但是一进来就发现是小菲。。小菲可是初学者必学的哈。。偶却。。。自愧。。请问各位大牛，为什么这道题是小菲呢，为什么除以7654321就等于高精度呢？？？

sb