Question

Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе

Answer 1

//PascalABC.Net 3.0, сборка 1053
var
  n: longint;
  d, n1, n2: integer;

begin
  n1 := 0; n2 := 0;
  Write('Введите натуральное число: ');Read(n);
  repeat
    d := n mod 10;
    if odd(d) then Inc(n1) else Inc(n2);
    n := n div 10
  until n = 0;
  Write('Нечетных ', n1, ', четных ', n2)
end.

Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3

Answer 2

Конечно, вот пример программы на языке Python, которая подсчитывает количество четных и нечетных цифр в числе:

def count_even_odd_digits(number):
    # Инициализация счетчиков
    even_count = 0
    odd_count = 0
    
    # Преобразование числа в строку для посимвольной обработки
    str_number = str(number)
    
    # Перебор каждой цифры в числе
    for digit_str in str_number:
        digit = int(digit_str)
        
        # Проверка на четность
        if digit % 2 == 0:
            even_count += 1
        else:
            odd_count += 1
    
    return even_count, odd_count

# Ввод числа от пользователя
user_input = input("Введите число: ")

try:
    # Преобразование введенной строки в целое число
    user_number = int(user_input)
    
    # Вызов функции подсчета четных и нечетных цифр
    even_count, odd_count = count_even_odd_digits(user_number)
    
    # Вывод результатов
    print(f"Количество четных цифр: {even_count}")
    print(f"Количество нечетных цифр: {odd_count}")

except ValueError:
    print("Ошибка! Введите целое число.")

Программа сначала запрашивает у пользователя ввод числа. Затем она преобразует введенную строку в целое число и вызывает функцию `count_even_odd_digits`, которая подсчитывает количество четных и нечетных цифр в числе. Результаты выводятся на экран. Если пользователь вводит что-то, что нельзя преобразовать в целое число, программа выводит сообщение об ошибке.