Question

дано целое число N которое больше 1 последовательность чисел Фибоначчи. проверить является ли число фибоначчи

Answer 1

var n,a,b,c:integer;
begin
 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');

end.