Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, ...). Найти первое число в последовательности Фибоначчи, большее n (значение n вводится с клавиатуры; n > 1)

Question

Урван

5 год назад

ОТВЕТЫ

Atkinson Peter

Oct 24, 2020

Var a,a1,a2:integer;

Begin

a1:=1;

while(a<1000) do begin

a:=a1+a2;

a2:=a1;

a1:=a;

writeln(a) end;

End.

Получились числа:1 2 3 5 8 13 21 34 55 89 144 233 377 610 987

384