UC知道pascal语言...
来源：百度知道 编辑：UC知道 时间：2024/06/03 22:41:39
Description
菲波拉契数列的第一项为0，第二项为1，以后的每一项是它前两项的和。
如：0 1 1 2 3 5 8 13 ……
Input
只有一行且只有一个正整数：n (1<=n<=80)
Output
只有一行且只有一个数：菲波拉契数列第n项的值
Sample Input
5
Sample Output
3
菲波拉契数列的第一项为0，第二项为1，以后的每一项是它前两项的和。
如：0 1 1 2 3 5 8 13 ……
Input
只有一行且只有一个正整数：n (1<=n<=80)
Output
只有一行且只有一个数：菲波拉契数列第n项的值
Sample Input
5
Sample Output
3
//不用数组
var
a,b,c:int64;//longint范围会错误
i:integer;
begin
a:=1;
b:=1;
for i:=3 to 80 do
begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(c);
end.
program xxx(input,output);
var
i,n:integer;
a:array[1..80]of longint;
begin
read(n);
a[1]:=0;
a[2]:=2;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
write(a[n]);
end.
Program xx;
Var a,b,i,n,t:qword;
Begin
Readln(n);
a:=0;b:=1;
For i:=1 to n Do
Begin
t:=a+b;
Write(t,' ');
a:=b;b:=t;
End;
End.
program bee;
var i,j,k,n,m:integer;
a,b,c:array[1..3000]of integer;
procedure f;
begin
k:=k+1;
for i:=1 to 3000 do c[i]:=0;
for i:=1 to 3000 do c[i]:=a[i]+b[i];
for i:=1 to 3000 do
if c[i]>=10 then