Вычислить сумму всех чисел фибоначчи ,которые меньше тысячи

Question

Вычислить сумму всех чисел фибоначчи ,которые меньше тысячи

Answer 1

a[1] := 1;

a[2] := 1;

i := 3;

sum := 0;

 

while (a[i] < 1000) do

  begin

    a[i] := a[i - 1] + a[i - 2];

    inc(i);

end;

 

for j := 1 to i do

  sum := sum + a[i];

 

write(sum);