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

Question

Информатика

Матвей

10 апреля, 18:41

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

+5

Ответы (1)

Знаете ответ на вопрос?

Авдоким · 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) ;