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

Question

Информатика

Матвей

22 марта, 15:21

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

+1

Ответы (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) ;