...34……,求第N项是多少? (其中100>N>=1) 用pascal做

发布网友发布时间：2024-10-23 22:45

我来回答

共2个回答

热心网友时间：2024-11-01 16:22

已试过，是对的，望采纳，谢谢

程序如下：

program fai0bonacai;

var t,n:longint;

p,l,f:real;

begin

read(n);

p:=0;l:=1;t:=2;

while t<>n do

begin

f:=p+l;

p:=l;

l:=f;

t:=t+1;

end;

write(f:0:0);

end.

附图：

热心网友时间：2024-11-01 16:19

faibonacai(费波那契)数列
program minnum;
var
a:array[1..100] of longint;
n,i:integer;
begin
readln(n);
a[1]:=0;
a[2]:=1;
for i:=3 to n do
begin
a[i]:=a[i-1]+a[i-2];
end;
writeln(a[n]);
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

...34……,求第N项是多少? (其中100&gt;N&gt;=1) 用pascal做

...34……,求第N项是多少? (其中100>N>=1) 用pascal做