Advertisement
Artashes

Task4.2

Mar 2nd, 2019
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.27 KB | None | 0 0
  1. % Написать программу, задающую отношение fib(N,F), для определения N - го числа Фибоначчи F.
  2.  
  3. fib(0, 0):-!.
  4. fib(1, 1):-!.
  5. fib(N, F):- N1 is N-1, N2 is N-2,
  6. fib(N2, F2), fib(N1, F1),
  7. F is F1 + F2.
  8.  
  9. % fib(6, F)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement