Последовательность Фибоначчи определяется так: a(0)=1, a(1)=1, a(k)=a(k-1)+a(k-2) при...

Question

Последовательность Фибоначчи определяется так: a(0)=1, a(1)=1, a(k)=a(k-1)+a(k-2) при k>=2. Дано n, вычислить a(n).

Answer 1

Var a,b,i,n: integer;
begin
 a := 1;
 b := 1;
 read(n);
 for i := 2 to n do
   begin
   b := a + b;
   a := b - a
   end;
 write(b)
end.