Давайте разберем задачу и составим программу на Free Pascal, которая будет проверять, не превышает ли произведение цифр натурального числа 50.

Для решения задачи нам нужно выполнить следующие шаги:

1. Ввод числа: Мы будем запрашивать у пользователя ввод натурального числа.
2. Инициализация переменной: Создадим переменную для хранения произведения цифр. Изначально она будет равна 1, так как мы будем умножать цифры.
3. Цикл для обработки цифр: Используя цикл, мы будем извлекать каждую цифру числа и умножать ее на текущее значение произведения.
4. Проверка условия: После завершения цикла проверим, не превышает ли произведение 50.
5. Вывод результата: Сообщим пользователю, верно ли данное условие.

Теперь давайте напишем саму программу:

program ProductOfDigits; var number, digit, product: Integer; begin Write('Введите натуральное число: '); ReadLn(number); product := 1; while number > 0 do begin digit := number mod 10; // Извлекаем последнюю цифру product := product * digit; // Умножаем на произведение number := number div 10; // Удаляем последнюю цифру end; if product <= 50 then WriteLn('Произведение цифр не превышает 50.') else WriteLn('Произведение цифр превышает 50.'); end.

В этой программе:

• Мы используем цикл while для извлечения цифр числа. Каждый раз мы получаем последнюю цифру с помощью операции "mod" и обновляем число, удаляя последнюю цифру с помощью операции "div".
• Произведение цифр обновляется на каждой итерации цикла.
• После завершения цикла мы проверяем, не превышает ли произведение 50, и выводим соответствующее сообщение.

Теперь вы можете протестировать программу, введя различные натуральные числа, и проверить, работает ли она корректно.