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

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

Задать свой вопрос
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
Leonid Fajin
а как написать строку с function
Саша Попичев
?*
Дарья
При чём здесь function? Загнать формулу в функцию?
Софья Ванифатьева
ладно
Мирослава Цховребова
спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт