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

Question

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

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

Comments

В Паскале

---

в паскале?

---

Да-, именно в Паскале)

Answer 1

Var a,a1,a2:integer;
Begin
a1:=1;   
     while(a<1000) do begin<br>  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