Решаем задачи Абрамян на Паскале. While27

While27. Дано целое число $$N$$ ($$> 1$$), являющееся числом Фибоначчи: $$N = F_K$$ (определение чисел Фибоначчи дано в задании While24). Найти целое число $$K$$ — порядковый номер числа Фибоначчи $$N$$.

Решение:

program While27;
var
  N,F,F1,F2,K :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  F1:=1;
  F2:=1;
  F:=0;
  K:=2;
  while F < N do
   begin
    inc(K,1);
    F:=F2+F1;
    F2:=F1;
    F1:=F;
   end;
  Writeln(k);
end.

program While27;

var

N,F,F1,F2,K :Integer;

begin

Write('Введите число N: ');

Readln(N);

F1:=1;

F2:=1;

F:=0;

K:=2;

while F < N do

begin

inc(K,1);

F:=F2+F1;

F2:=F1;

F1:=F;

end;

Writeln(k);

end.

Другие задачи из раздела While можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. While27

Комментарии:

Добавить комментарий Отменить ответ