Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.