На паскале!! Числа Фибоначчи определяются формулами: f0=f1=1, fn=fn-1+fn-2; при
n=2,3… Найти f - первое число Фибоначчи, большее m(m>1). и ещё это Вычислить - сумму всех чисел Фибоначчи, которые превосходят 1000.

Первое число Фибоначчи, большее \(m\), можно найти так:

program Fibonacci;
var m, f0, f1, f: Int64;
begin
  readln(m);
  f0 := 1;
  f1 := 1;
  while f1 <= m do
  begin
    f := f0 + f1;
    f0 := f1;
    f1 := f;
  end;
  writeln(f1);
end.

Сумму всех чисел Фибоначчи, которые больше \(1000\), вычислить нельзя: таких чисел бесконечно много, поэтому их сумма не имеет конечного значения.

0 0 Пожаловаться