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

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

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

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

сумму

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

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

Question

Информатика

Соня

30 июля, 02:52

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

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

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

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

сумму

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

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

+3

Ответы (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