Напишите функцию которая вычисляет N-е число фибоначчи
Напишите функцию которая вычисляет N-е число фибоначчи
Гость
Ответ(ы) на вопрос:
Гость//По формуле Бине
//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
Не нашли ответ?
Похожие вопросы