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

1. Считать число: Мы будем запрашивать у пользователя ввод натурального числа.
2. Проверить, является ли число трехзначным: Для этого нужно убедиться, что число лежит в диапазоне от 100 до 999.
3. Извлечь цифры числа: Мы получим последние три цифры числа, используя операции деления и остатка от деления.
4. Посчитать сумму цифр: Мы сложим все три цифры, чтобы узнать их сумму.
5. Проверить кратность суммы цифр числу 7: Для этого нужно использовать оператор остатка от деления.

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

Var a, b, c, d: integer; // a - число, b, c, d - цифры числа Begin Readln(a); // Считываем число с клавиатуры b := a mod 10; // Последняя цифра (единицы) c := a div 10 mod 10; // Предпоследняя цифра (десятки) d := a div 100; // Первая цифра (сотни) If (a >= 100) and (a <= 999) then Begin var sum: integer; sum := b + c + d; If (sum mod 7 = 0) then Writeln('Сумма цифр числа кратна 7') else Writeln('Сумма цифр числа не кратна 7'); end else Writeln('Число не является трехзначным'); End.

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

• Мы сначала считываем число с помощью функции Readln.
• Затем извлекаем цифры с помощью операций деления и остатка.
• Проверяем, находится ли число в диапазоне трехзначных чисел.
• Считаем сумму цифр и проверяем, кратна ли она 7.

Таким образом, программа выполнит все необходимые проверки и выдаст соответствующее сообщение пользователю.