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

Question

Информатика

Ая

15 ноября, 08:35

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

+5

Ответы (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
begin

c:=a+b;

a:=b;

b:=c;

end;

end;

if c=n then write ('true') else write ('false') ;

end.