Числа Фибоначчи. Функция – проверка входит ли заданное число в числовую последовательность Фибоначчи
Категория: Delphi/Pascal
2012-03-05 23:20:18
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.
Поделиться: