Question

Напишите программу. Числа Фибоначчи (fn) определяются формулами f0=f1=1; fn=fn-1+fn-2 при n=1,2..., тоесть это бесконечная последовательность чисел вида: 1,1,2,3,5,8,13,21,34,55,89,...Определите номер последнего числа Фибаначчи , который входит в диапазон от 1 до 2^16

Answer 1

var

 v, c, a, b, n,count: integer;

begin

 write('Введите максимальное число N = '); readln(n);  

 a := 0; b := 1;

 count:=1;

 repeat

   c := b;

   b := a + b;

   a := c;

   v := a + v;

   inc(count);

 until v-a>n;

 writeln(count,': ',a);

end.