Числа Фибоначчи определяются формулами f_1=f_2=1, а каждое следующее равно f_n=f_(n-1)+f_(n-2) (n≥3). Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. ПАСКАЛЬ
Числа Фибоначчи определяются формулами f_1=f_2=1, а каждое следующее равно f_n=f_(n-1)+f_(n-2) (n≥3). Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. ПАСКАЛЬ
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program FibonacciSum;
var
f1, f2, tmp, sumFibonacci: integer;
begin
f1 := 1;
f2 := 1;
sumFibonacci := 0;
while f2 <= 1000 do
tmp := f2;begin
if f2 mod 2 = 0 then
sumFibonacci := sumFibonacci + f2;
f2 := f1 + f2;
f1 := tmp;
end;
writeln('Сумма всех четных чисел Фибоначчи, не превосходящих 1000: ', sumFibonacci);
end.