Числа Фибоначчи. Функция – проверка входит ли заданное число в числовую последовательность Фибоначчи

code: #pascal
Program PascalGuru;
 
var n:integer;
 
{-----------------------}
function IsFib(n:longint):boolean;
var i,i1,i2:longint;
begin
if n=1 then IsFib:=true
else
 begin
  i1:=1;i2:=1;
  repeat
  i:=i1+i2;
  if i=n then IsFib:=true
  else
   begin
    i1:=i2;
    i2:=i;
   end;
  until i>=n;
  if i>n then IsFib:=false;
 end;
end;
{-------------------}
 
begin
readln(n);
 
if IsFib(n) then writeln('Yes') else writeln('No');
 
end.      
Поделиться:

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