Дано целое число N (меньше 1). Последовательность чисел Фибоначчи FK определяется следующим образом:F1 = 1, F2 = 1, FK = FK-2 + FK-1, K = 3, 4, ... . Проверить, является ли число N числом Фибоначчи

Категория: Delphi/Pascal
2013-02-03 20:19:44

Если является, то вывести TRUE, если нет — вывести FALSE

code: #pascal
program while24;
uses crt;
var 
  n,a,b,c:integer;
begin 
  clrscr;
  write('Введите число ');
  readln(n);
if n = 1 then 
  write('true')
else
  begin
    a:=1;
    b:=1;
    c:=0;
  while c < n do
    begin
      c:=a+b;
      a:=b;
      b:=c;
    end;
  end;
if c = n then 
  write('true')
else 
  write('false');
readln;
end.

автор: Oleg Voloshin

Поделиться:

Похожие статьи:

теги: число фибоначчи