Дано целое число N которое больше 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
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write(true)else write(false);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
