Числа Фибоначчи определяются формулами 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. ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
ГостьЕсли я, правильно понял вас.
То вам это нужно
program kry_4_Febana4i;
var M,
F0, F1, F2,
S: Integer;
begin
Write('Введите натуральное М : ');
ReadLn(M);
F0 := 1; F1 := 1; F2 := 2; S := 4;
Write('Числа Фибоначчи, не превосходящие ', M, ' :', F0:4, F1:4);
while F2 <= M do
begin
F0 := F1; F1 := F2; Write(F1: 4);
F2 := F0 + F1; S := S + F2;
end;
S := S - F2;
WriteLn; WriteLn;
WriteLn('О т в е т : Сумма этих чисел равна ', S); ReadLn
end.
Не нашли ответ?
Похожие вопросы