Question

Помогите написать программу: ввести 10 чисел и посчитать количество чисел оканчивающихся на 3 (в паскаль)

Answer 1

begin

 ReadSeqInteger(10).Where(x -> x mod 10 = 3).Count.Println

end.

Answer 2

Для написания программы, которая позволит вам ввести 10 чисел и посчитать количество чисел, оканчивающихся на 3, вам понадобится выбрать язык программирования. Ниже представлен пример кода на языке Python, который выполняет данную задачу:

pythonCopy code
def count_numbers_ending_with_three():
    count = 0

    for i in range(10):
        num = int(input(f"Введите {i + 1}-е число: "))
        if num % 10 == 3:
            count += 1

    return count


if __name__ == "__main__":
    result = count_numbers_ending_with_three()
    print(f"Количество чисел, оканчивающихся на 3: {result}")

Суть программы заключается в том, что мы используем цикл for для запроса 10 чисел от пользователя и проверяем последний символ каждого числа. Если последний символ равен 3 (то есть число оканчивается на 3), то увеличиваем счетчик count на 1. В конце программы выводим результат - количество чисел, оканчивающихся на 3.

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