Викторин 28 ноября 2019 в 06:04
Дано целое число N которое больше 1 последовательность чисел Фибоначчи. проверить является ли число фибоначчи
Дано целое число 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 clt;n do
begin
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write(true) else write(false);
end.
begin
readln(n);
if n=1 then write(true) else begin a:=1; b:=1; c:=0;
while clt;n do
begin
c:=a+b;
a:=b;
b:=c;
end;
end;
if c=n then write(true) else write(false);
end.
Компьютеры и вычисления
285
0
Для комментирования необходимо зарегистрироваться на сайте