240 条题解
-
0Estella LV 5 @ 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. -
02013-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. -
02013-12-01 20:14:01@
数据好弱,每求一项都%一次竟然还是0ms
-
02013-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;
} -
02013-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;
} -
02013-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;
} -
02013-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. -
02013-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分??? -
02013-02-16 10:21:45@
-
02012-10-27 22:34:57@
有水题,大家刷啊
不刷水题,那就是辜负了VIJOS对我们的希望!
不刷水题,誓不为人! -
02012-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. -
02012-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.
斐波那契数列秒杀 -
02012-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. -
02012-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. -
02012-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. -
02012-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点击这里查看
什么破检测机,连递归都吃不消,只能递推
斐波那契数列,不解释 -
02010-07-22 19:19:41@
斐波那契~!酷。。。
program p1093;
const mm=7654321;
var x,y,k:qword;
i,n:integer;
begin readln(n);
if n -
02010-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. -
02010-03-27 00:16:45@
//illusionwing
#include
int main ()
{
long w,la=1,lb=1,lc;
scanf("%d",&w);
for(int i=1;i -
02009-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.