Задача 5 Урок 20
Primary tabs
Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером
program lesson20_5; function numF(f1, f2, n: integer): integer; begin if n = 1 then result := f1 else if n = 2 then result := f2 else result := numF(f2, f2 + f1, n - 1); end; var n: integer = 10; begin write(numF(0, 1, n)); readln(); end.
- Log in to post comments
- 694 reads