Question

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

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

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