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

Question

Информатика

Парфён

21 октября, 02:34

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

+2

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