Номер числа Фибоначчи (Pascal)

AvariItigail

25 апреля 2016

Дано натуральное число A > 1. Определите, каким по счету числом Фибоначчи оно является, то есть выведите такое число n, что φn=A. Если А не является числом Фибоначчи, выведите число -1.

Входные данные
Вводится натуральное число.

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal

var
  i, a, b, n, c, k: integer;

begin
  read(n);
  b := 1;
  c := 1;
  k := 1;
  for i := 1 to 100 do
  begin
    a := c;
    c := b;
    b := a + b;
    if (n = a) then
    begin
      writeln(k);
      a := -1;
      break;
    end;
    if (a > n) then
    begin
      writeln('-1');
      break;
    end;
    k := k + 1;
  end;
end.