240 条题解

  • 0
    @ 2013-12-13 22:01:59

    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.

  • 0
    @ 2013-12-13 22:00:18

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

  • 0
    @ 2013-12-01 20:14:01

    数据好弱,每求一项都%一次竟然还是0ms

  • 0
    @ 2013-11-05 13:25:47

    AC
    高中课本知识,滚动数组
    #include<stdio.h>
    int a[4];
    int main()
    {
    int n,i;
    a[0]=1;
    a[1]=1;
    scanf("%d",&n);
    for(i=2;i<n;i++)
    a[(i%3)] = ( a[(i-1)%3]%7654321 + a[(i-2)%3]%7654321 )%7654321;
    printf("%d",a[(i-1)%3]);
    return 0;
    }

  • 0
    @ 2013-11-03 11:14:39

    水题#include<iostream>
    using namespace std;
    int main()
    {
    long long a=1,b=1,c,i,n;
    cin>>n;
    if(n<3)
    {
    cout<<"1"<<endl;
    system("pause");
    return 0;
    }
    for(i=3;i<=n;i++)
    {
    c=(a+b)%7654321;
    a=b;
    b=c;
    }
    cout<<c;
    system("pause");
    return 0;
    }

  • 0
    @ 2013-10-31 14:53:36

    求大神帮忙改程序!
    #include<iostream>
    using namespace std;
    int main()
    {
    long long a,b,c,i,n;
    a=1;
    b=1;
    cin>>n;
    for(i=3;i<=n;i++)
    {
    c=(a+b)%7654321;
    a=b;
    b=c;
    }
    cout<<c;
    system("pause");
    return 0;
    }

    • @ 2013-10-31 14:54:36

      只对了8个点,//system(“pause”);也注释掉了

    • @ 2014-12-31 08:35:11

      [虽然晚了一年。]当n=1或者n=2的时候不就错了么。

    • @ 2016-06-03 13:36:35

      把c赋初值为1

  • 0
    @ 2013-10-30 20:49:14

    var i,j,k,A_1,A_2,A,n:Longint;
    Begin
    Readln(N);
    A_2:=0;A_1:=1;A:=1;
    For i:=1 to N-1 do
    Begin
    A:=(A_1+A_2) mod 7654321;
    A_2:=A_1;A_1:=A;
    End;
    Writeln(A);
    End.

  • 0
    @ 2013-08-31 21:34:26

    #include <stdio.h>
    int main (){
    int a=1,b=1,c=0,s,sum=0,t;
    scanf ("%d",&s);
    for (c=0;c<s;c++)
    {sum=sum+a;
    t=b;
    b=a+b;
    a=t;
    }
    printf ("%d",sum);
    return 0;
    }
    为什么只AC一个,就10分???

  • 0
    @ 2012-10-27 22:34:57

    有水题,大家刷啊

    不刷水题,那就是辜负了VIJOS对我们的希望!

    不刷水题,誓不为人!

  • 0
    @ 2012-10-25 17:14:00

    var

    i,n:integer;

    a,b,c:qword;

    begin

    readln(n);

    a:=1;

    b:=1;

    for i:=3 to n do begin

      c:=a;

      a:=b;

      b:=(b+c) mod 7654321;

    end;

    writeln(b);

    end.

  • 0
    @ 2012-10-25 17:13:09

    {

    ID:darkgod-z

    PROG:vijos P1093

    HANG:PASCAL

    }

    var

    i,n:integer;

    a,b,c:qword;

    begin

    readln(n);

    a:=1;

    b:=1;

    for i:=3 to n do begin

    c:=a;

    a:=b;

    b:=(b+c) mod 7654321;

    end;

    writeln(b);

    end.

    斐波那契数列秒杀

  • 0
    @ 2012-10-20 14:47:50

    我靠?这是斐波那契数列?一直没发现啊,我只是把它当做了一个已知状态转移方程的DP而已……不过数据全部通过了~~~

    program P1093;var n,i,j,k:longint; dd:array[1..4,1..10000] of longint;begin read(n); dd[1,n]:=1; dd[2,n]:=1; dd[3,n]:=1; dd[4,n]:=1; for i:=n downto 2 do begin dd[1,i-1]:=dd[2,i]mod 7654321; dd[2,i-1]:=(dd[1,i]+dd[3,i])mod 7654321; dd[3,i-1]:=(dd[2,i]+dd[4,i])mod 7654321; dd[4,i-1]:=(dd[3,i])mod 7654321; end; write(dd[1,1]mod 7654321);end.

  • 0
    @ 2012-09-09 11:15:40

    var 

    i,n:longint; 

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

    begin 

    readln(n); 

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

    for i:=3 to n do 

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

    writeln(a[n]); 

    end. 

  • 0
    @ 2012-08-05 10:58:33

    var

    i,n:longint;

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

    begin

    readln(n);

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

    for i:=3 to n do

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

    writeln(a[n]);

    end.                                        

  • 0
    @ 2012-08-02 10:32:47

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    点击这里查看

    什么破检测机,连递归都吃不消,只能递推

    斐波那契数列,不解释

  • 0
    @ 2010-07-22 19:19:41

    斐波那契~!酷。。。

    program p1093;

    const mm=7654321;

    var x,y,k:qword;

    i,n:integer;

    begin readln(n);

    if n

  • 0
    @ 2010-07-04 19:37:53

    好自豪好自豪啊!!!!

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    program p1093;

    var n,i:longint;

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

    begin

    readln(n);

    a[1]:=1;

    a[2]:=1;

    for i:=3 to n do

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

    writeln(a[n]);

    end.

  • 0
    @ 2010-03-27 00:16:45

    //illusionwing

    #include

    int main ()

    {

    long w,la=1,lb=1,lc;

    scanf("%d",&w);

    for(int i=1;i

  • 0
    @ 2009-11-08 19:06:30

    菲波那契数列…… 0ms通过 代码下面

    program P1093;

    var i,n:longint;

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

    begin

    readln(n);

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

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

    for i:=3 to n do

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

    writeln(a[n]);

    end.

信息

ID
1093
难度
4
分类
模拟 点击显示
标签
(无)
递交数
6527
已通过
2838
通过率
43%
被复制
14
上传者