分析前幾步發現是斐波那契數列第n+1位，由于數據太大要用高精加。var a,b,c:array[1..5000] of longint; n,l:longint;PRocedure gjj;var i:longint;begin fillchar(c,sizeof(c),0); for i:=1 to l do begin c[i]:=c[i]+a[i]+b[i]; if c[i]>=10 then begin c[i]:=c[i]-10; inc(c[i+1]); end; end; if c[l+1]<>0 then inc(l);end;var i:longint;begin readln(n); if n=0 then begin writeln(0);exit;end; if n=1 then begin writeln(1);exit;end; if n=2 then begin writeln(2);exit;end; a[1]:=1; b[1]:=2; l:=1; for i:=1 to n-2 do begin gjj; a:=b; b:=c; end; for i:=l downto 1 do write(c[i]);end.
