Числа Фибоначчи - Turbo Pascal (33733)

Формулировка задачи:

Числа Фибоначчи (fn) определяются формулами f0=f1=1, fn=fn-1+fn-2 при n=2,3,….. определить f40

Код к задаче: «Числа Фибоначчи - Turbo Pascal (33733)»

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

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ