Question

Напишите программу для решения задачи с клавиатуры вводится целое положительное 3-значное число ,если число четное то вычислить и вывести на экран все цифры числа каждую цифру в отдельной строке

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger;

 if n.IsEven then n.ToString.ToCharArray.PrintLines

end.

518

5

1

8

Answer 2

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

pythonCopy code
def print_digits(number):
    # Преобразуем число в строку для удобства обработки цифр
    number_str = str(number)

    # Выводим каждую цифру числа на отдельной строке
    for digit in number_str:
        print(digit)

# Функция для проверки, является ли число четным
def is_even(number):
    return number % 2 == 0

# Главная функция программы
def main():
    try:
        # Вводим целое положительное 3-значное число
        num = int(input("Введите целое положительное 3-значное число: "))

        if 100 <= num <= 999:
            if is_even(num):
                print("Число четное.")
                print("Цифры числа:")
                print_digits(num)
            else:
                print("Число нечетное.")
        else:
            print("Введенное число не является 3-значным.")
    except ValueError:
        print("Ошибка! Введите целое число.")

if __name__ == "__main__":
    main()

Программа позволяет пользователю ввести целое положительное 3-значное число. Если число четное, то она выводит на экран все его цифры по одной на каждой строке. Если число не является 3-значным, либо введено не число, программа сообщит об ошибке.