斐波那契数列(兔子繁殖数列）,pascal语言,高精度做~❀❤

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/28 13:15:31

var
n,i,l:integer;
a,b,c:array [1..10000] of byte;
procedure plus;
var
i:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to l do begin
c[i]:=c[i]+a[i]+b[i];
c[i+1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
if c[l+1]>0 then l:=l+1;
end;
begin
readln(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
a[1]:=1;b[1]:=1;c[1]:=1;
l:=1;
for i:=3 to n do begin
plus;
a:=b;
b:=c;
end;
for i:=l downto 1 do
write(c[i]);
writeln;
end.

斐波那契数列(兔子繁殖数列）,pascal语言,高精度做~❀❤ 语言用递归法解兔子繁殖问题（斐波那契数列）,求每月的兔子数目. pascal高精度的斐波那契数列的第n项? 斐波那契数列,兔子繁殖有多快 C# 斐波那契数列兔子繁殖斐波那契数列求和1 pascal语言 pascal斐波那契数列要用repeat语句做 Pascal 斐波那契数列求和用高精度求解斐波那契数列斐波那契数列为什么叫兔子数列求各种斐波那契数列的pascal题目! Pascal 斐波那契数列求纠错!