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

Question

Информатика

Христеня

11 июня, 12:15

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

+2

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