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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник