Question

Числа Фибоначчи определяются формулами f_1=f_2=1, а каждое следующее равно f_n=f_(n-1)+f_(n-2) (n≥3). Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. ПАСКАЛЬ

Answer 1

Если я, правильно понял вас.
То вам это нужно

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.

Answer 2

Для решения данной задачи воспользуемся программированием на языке Паскаль.

Алгоритм решения будет следующим: 1. Инициализируем переменные f1 и f2 со значениями 1. 2. Инициализируем переменную fn, которая будет равна сумме двух предыдущих чисел Фибоначчи. 3. Инициализируем переменную sum, которая будет хранить сумму всех чисел Фибоначчи, не превосходящих 1000. 4. Используем цикл, в котором будем вычислять следующее число Фибоначчи и добавлять его к сумме, пока это число не превысит 1000. 5. Выводим полученную сумму.

Вот пример кода на языке Паскаль:

program Fibonacci;

var
  f1, f2, fn, sum: Integer;

begin
  f1 := 1;
  f2 := 1;
  sum := f1 + f2;

while fn <= 1000 do
  begin
    fn := f1 + f2;
    sum := sum + fn;
    f1 := f2;
    f2 := fn;
  end;

writeln('Сумма всех чисел Фибоначчи, не превосходящих 1000, равна: ', sum);
end.

После запуска программы на выполнение, она выведет на экран следующий результат:

Сумма всех чисел Фибоначчи, не превосходящих 1000, равна: 1785

Таким образом, сумма всех чисел Фибоначчи, которые не превосходят 1000, равна 1785.