Question

已知一个数列各项为: 0, 1, 1, 2, 3, 5, 8, 13, 21 ,34……,求第N项是多少? (其中100>N>=1) 用pascal做

Answer 1

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

程序如下：

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.

附图：

Answer 2

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.