Question

Дан набор ненулевых целых чисео; признак его завершения - число 0. Вывести колличество чисел в наборе с 3й цифрой 2

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

 ReadSeqIntegerWhile(t -> t <> 0)

     .Where(t -> Abs(t) mod 1000 div 100 = 2).Count.Print

end.

Пример

131 -1085 -1031 -1278 984 259 5 704 1268 -1119 -833 845 327 -615 -252 -761 682 -563 -1264 -426 0

5

Answer 2

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

1. Создать переменную для хранения количества чисел, у которых третья цифра равна 2.
2. Начать считывание чисел из набора до тех пор, пока не встретится число 0 (завершающее число).
3. Проверять третью цифру числа на равенство 2 и увеличивать счетчик, если условие выполняется.
4. Вывести полученное количество чисел с третьей цифрой равной 2.

Вот пример кода на Python, реализующий эти шаги:

pythonCopy code
def get_third_digit(num):
    # Функция для получения третьей цифры числа
    return (num // 100) % 10

def count_numbers_with_third_digit_two():
    count = 0
    while True:
        num = int(input("Введите число (для завершения введите 0): "))
        if num == 0:
            break

        if get_third_digit(num) == 2:
            count += 1

    return count

result = count_numbers_with_third_digit_two()
print(f"Количество чисел с третьей цифрой равной 2: {result}")

Этот код позволяет пользователю вводить числа по одному, пока не будет введен 0 в качестве завершающего числа. Затем программа подсчитывает количество чисел с третьей цифрой равной 2 и выводит результат.