Показать сообщение отдельно
  #2  
Старый 01.06.2019, 05:27
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Код писать лень.
Не самый быстрый из возможных алгоритмов - цикл с памятью.
Т.е. сам принцип нахождения N все тот же - расчет и сравнение. При расчете надо заполнять массив для убыстрения дальнейших итераций. Ну и начало поиска - от последнего элемента массива.
Т.е. если введенное число больше, чем последнее расчитанное, то считаем с последнего пока не попадем (ну или превысим N, тогда введенное число не является числом фибоначчи). Если меньше - то просто проверяем по массиву.
Ответить с цитированием