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

Answer 2

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

Answer 3

?*

Answer 4

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

Answer 5

ладно

Answer 6

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