Последовательностью Фибоначчи называется последовательность чисел a0, a1, ..., an, ..., где a0 = 0, a1 = 1, ak = ak-1 + ak-2 (k > 1).

Требуется найти N-е число Фибоначчи.

Примечание. В программе запрещается использовать циклы.

Формат входных данных

На вход программы поступает целое неотрицательное число N (N ≤ 30).

Формат выходных данных

Требуется вывести N-е число Фибоначчи.

Пример

Входные данные

7

Выходные данные

13

Question

Информатика

Ритуша

16 сентября, 13:46

Последовательностью Фибоначчи называется последовательность чисел a0, a1, ..., an, ..., где a0 = 0, a1 = 1, ak = ak-1 + ak-2 (k > 1).

Требуется найти N-е число Фибоначчи.

Примечание. В программе запрещается использовать циклы.

Формат входных данных

На вход программы поступает целое неотрицательное число N (N ≤ 30).

Формат выходных данных

Требуется вывести N-е число Фибоначчи.

Пример

Входные данные

7

Выходные данные

13

+5

Ответы (1)

Знаете ответ?

Коля · Answer 1

Var n:integer;

function Fib (k:integer) : integer;

begin

if k=0 then Fib:=0

else if k=1 then Fib:=1

else Fib:=Fib (k-1) + Fib (k-2) ;

end;

begin

readln (n) ;

writeln (Fib (n)) ;

end.

Пример:

10

55