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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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);