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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Ответ:

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

Объяснение: