Последовательность Фибоначчи образуется так:

первый и второй члены

последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1,

2, 3, 5, 8, 13, ...). Найти

сумму

всех чисел в последовательности Фибоначчи, которые не

превосходят 1000

Question

Информатика

Савва

25 апреля, 06:36

Последовательность Фибоначчи образуется так:

первый и второй члены

последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1,

2, 3, 5, 8, 13, ...). Найти

сумму

всех чисел в последовательности Фибоначчи, которые не

превосходят 1000

+1

Ответы (1)

Знаешь ответ?

Стеня · Answer 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