Напишите функцию которая вычисляет N-е число фибоначчи

Question

Напишите функцию которая вычисляет N-е число фибоначчи

Answer 1

//По формуле Бине
//Pascal ABC.NET v3.0 сборка 1111

Var
 r,n:real;
begin
 readln(n);
 r:=(power((1+sqrt(5))/2,n)-power((1-sqrt(5))/2,n))/sqrt(5);
 writeln(r);
end. 

Пример ввода:
7
Пример вывода:
13

Comments

а как написать строчку с function&

---

?*

---

При чём тут function? Загнать формулу в функцию?

---

ладно

---

спасибо большое