snek271
Опубликовано 7 лет назад по предмету Информатика от snek271


Последовательность Фибоначчи определяется следующим образом:первые два члена последовательности равны 1,а каждый следующий равен сумме двух предыдущих.То есть числами Фибоначчи являются 1,1,2,3,5,8,13,... .Вводится натуральное число.Определить,является ли введенное число числом Фибоначчи.

  1. Ответ
    Ответ дан sinbad7

    var n, n1, n2, n3, k: integer;

    begin readln(n); n1 := 1; n2 := 1; n3 := 2; k := 0; if (n=1) or (n=2) then k := 1; while n3 <= n do begin if n3=n then k := 1; n1 := n2; n2 := n3; n3 := n1 + n2; end; if k = 1 then writeln(n, ' является числом Фибоначчи') else writeln(n, ' не является числом Фибоначчи');end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц