Question

Последовательность Фибоначчи определяется следующим образом:первые два члена последовательности равны 1,а каждый следующий равен сумме двух предыдущих.То есть числами Фибоначчи являются 1,1,2,3,5,8,13,... .Определить N-е по порядку числа Фибоначчи.Помогите решить в Pascal пожалуйста)

Answer 1

var a:array[0..2] of integer;

   i, n: integer;

begin

   a[1]:=1;

   a[2]:=1;

   readln(n);

   for i:=3 to n do

      a[i mod 3] := a[(i-1) mod 3] + a[(i-2) mod 3];

   writeln(a[n mod 3])

end.

Answer 2

Program z;

var A:array [1..1000] of integer;

      n,i:integer;

Begin

readln(n);

A[1]:=1;

A[2]:=1;

for i:=3 to n do

      A[i]:=A[i-1]+A[i-2];

writeln(A[n]);

end.