• Ввести натуральное число
    N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от
    ввода отрицательного числа N.

Ответы 1

  • var    f1, f2, max: integer;    s: longint;begin    max := -1;    while max < 0 do     begin        writeln('введите то число до которого выводить числа');        readln(max);        if max < 0 then writeln('введено неверное число');    end;        s := 0;    f1 := 0;    f2 := 1;    while f2 < max do     begin        s := s + f2;        f2 := f2 + f1;        f1 := f2 - f1;        writeln(f2);    end;        writeln('S=', s);end.
    • Автор:

      laramad6
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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