Developing.ru

Найти первое число Фибоначчи большее некоторого заданного числа M, а также номер n этого числа.

для справки: число Фибоначчи определяется формулой f(n)=f(n-1)+f(n-2)
где f(0)=1, f(1)=1
подробнее здесь:
http://ru.wikipedia.org/wiki/Числа_Фибоначчи

Заранее спасибо!

a:=1;
b:=1;
n:=2;
c:=0;
while c<M do
begin
c;=a+b;
a:=b;
b:=c;
inc(n);
end;

тема рассматривалась в Алгоритмах.
Числа Фибоначчи