Question

Ввести целое число и определить, верно ли, что в нём ровно одна цифра 9

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.

Примеры
35423
False

13290192
False

132903
True

Answer 2

Конечно, я могу помочь вам написать программу для определения, содержит ли введенное целое число ровно одну цифру 9. Вот пример кода на языке Python:

pythonCopy code
number = int(input("Введите целое число: "))
count = 0

while number > 0:
    digit = number % 10
    if digit == 9:
        count += 1
    number //= 10

if count == 1:
    print("В числе ровно одна цифра 9.")
else:
    print("В числе нет одной цифры 9 или их больше одной.")

Эта программа запрашивает у пользователя целое число, а затем считает количество цифр 9 в числе. Если количество равно 1, программа выводит сообщение "В числе ровно одна цифра 9." В противном случае, если количество цифр 9 равно 0 или больше 1, программа выводит сообщение "В числе нет одной цифры 9 или их больше одной."

Вы можете скопировать этот код и запустить его в своей среде разработки Python для проверки.