Question

Это цикл с условием ( ПАСКАЛЬ ) Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от ввода отрицательного числа N. Пример: Введите число N: 10000 Сумма 17710 Помогите пожалуйста сделать Заранее спасибо

Answer 1

Если не нужен вывод самих чисел, закомментируйте строки 8, 12, 15

Answer 2

Конечно, я могу помочь вам написать код на Паскаль, который решит эту задачу. Вот как он может выглядеть:

lessCopy code
program sum_of_fibonacci;

var
  n, a, b, c, sum: integer;

begin
  sum := 0;

  write('Введите число N: ');
  readln(n);

  if n < 0 then begin
    writeln('Ошибка: N не может быть отрицательным!');
    exit;
  end;

  a := 0;
  b := 1;
  c := a + b;

  while c < n do begin
    sum := sum + c;
    a := b;
    b := c;
    c := a + b;
  end;

  writeln('Сумма всех чисел Фибоначчи, меньших N: ', sum);
end.

Как это работает:

• Мы сначала объявляем переменные n (число, которое пользователь вводит), a, b и c (эти переменные используются для вычисления последовательности Фибоначчи), и sum (эта переменная используется для хранения суммы чисел Фибоначчи, меньших n).

• Затем мы запрашиваем у пользователя число n и проверяем, что оно положительное. Если n отрицательное, то мы выводим ошибку и завершаем программу.

• Далее мы инициализируем переменные a и b как 0 и 1 соответственно, а затем вычисляем c как сумму a и b.

• Мы используем цикл while для вычисления суммы всех чисел Фибоначчи, меньших n. Цикл продолжается до тех пор, пока c меньше n. Внутри цикла мы добавляем c к переменной sum и затем обновляем значения переменных a, b и c.

• Наконец, мы выводим результат (сумму всех чисел Фибоначчи, меньших n) на экран.

Я надеюсь, что это поможет вам решить задачу!