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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт