Найти k-ое число Фибоначчи

@Sveta 123456 · Регистрация: 01.04.2014

Author24 — интернет-сервис помощи студентам

Числа Фибоначчи вычисляются по следующему закону: a1=1, a2=1, an=an-2+an-1. Найти k-ое число Фибоначчи.?

@APALoff · 01.04.2014, 16:35

Pascal

Function GetNFib(nn : Longint) : Longint;
  Function GetNFibonanchi(a,b,n : Longint) : Longint;
  Begin
    If n>3 then GetNFibonanchi:=GetNFibonanchi(a+b,a,n-1)
      else GetNFibonanchi:=a+b;
  End;
Begin
  If nn<1 then GetNFib:=0
    else GetNFib:=GetNFibonanchi(1,0,nn+1);
End;

@Sveta 123456 0 / 0 / 0 Регистрация: 01.04.2014 Сообщений: 3
		1
	Найти k-ое число Фибоначчи 01.04.2014, 14:59. Показов 2351. Ответов 1 Метки нет (Все метки) Числа Фибоначчи вычисляются по следующему закону: a1=1, a2=1, an=an-2+an-1. Найти k-ое число Фибоначчи.? 0

	01.04.2014, 16:35

Найти k-ое число Фибоначчи

Решение