Задача 6 Урок 22
Primary tabs
Задача 6 Урок 22 Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером
var N :integer ; function fib(n :integer):integer; begin if (n = 1) then begin result := 0 end else if (n = 2) then begin result := 1 end else begin result := fib(n-1) + fib(n-2); end; end; begin writeln('Vvedite chislo'); readln(N); writeln('chislo Fibonacchi ravno: '); writeln(fib(N)); readln(); end.
Вывод консоли:
Vvedite chislo 10 chislo Fibonacchi ravno: 34
- Log in to post comments
- 706 reads