展开全部
好像要用高精度诶
var 自个儿定义
begin
assign(input,'什么什么.in');reset(input);
assign(output,'什么什么.out');rewrite(output);
readln(n);a[1]:=1;b[1]:=1;k:=1;
for i：=3 to n do begin
for j:=1 to k do begin
c[j]:=b[j]+a[j];if c[j]>9 then begin c[j+1]:+c[j+1]+1;c[j]:=c[j]-10;end;
while c[k+1] <>0 do k:=k+1;
for j:=1 to k do begin
a[j]:=b[j];b[j]:=c[j];end;
end;
while (c[k]=0) do k:=k-1;
for i:=k downto 1 do write(c[k]);writeln;
close(input);
close(output);
end.
var 自个儿定义
begin
assign(input,'什么什么.in');reset(input);
assign(output,'什么什么.out');rewrite(output);
readln(n);a[1]:=1;b[1]:=1;k:=1;
for i：=3 to n do begin
for j:=1 to k do begin
c[j]:=b[j]+a[j];if c[j]>9 then begin c[j+1]:+c[j+1]+1;c[j]:=c[j]-10;end;
while c[k+1] <>0 do k:=k+1;
for j:=1 to k do begin
a[j]:=b[j];b[j]:=c[j];end;
end;
while (c[k]=0) do k:=k-1;
for i:=k downto 1 do write(c[k]);writeln;
close(input);
close(output);
end.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
