Задать вопрос Регистрация
Помочь другим

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

Ответы 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 dobegin    F0 := F1; F1 := F2; Write(F1: 4);    F2 := F0 + F1; S := S + F2; end;  S := S - F2;   WriteLn; WriteLn;WriteLn('О т в е т : Сумма этих чисел равна ', S); ReadLnend.

    • Автор:

      hudson
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years