Question

Введите с клавиатуры 10 натуральных чисел. Введите на экран количество двузначных чисел.

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Кол-во двухзначных чисел равно ',
      ReadSeqInteger('Введите 10 натуральных чисел:',10)
      .Where(t->Abs(t).Between(10,99)).Count)
end.

Пример
Введите 10 натуральных чисел: 356 0 16 -3523 -62 35 123 4 -2 131
Кол-во двухзначных чисел равно 3

Answer 2

Я могу помочь вам с вашим вопросом. Вот подробный ответ:

Чтобы ввести с клавиатуры 10 натуральных чисел, вы можете использовать цикл `for` и функцию `input()`, которая считывает строку из стандартного ввода. Например, такой код на Python:

numbers = [] # создаем пустой список для хранения чисел
for i in range(10): # повторяем 10 раз
    n = input("Введите натуральное число: ") # считываем строку
    n = int(n) # преобразуем строку в целое число
    numbers.append(n) # добавляем число в список

Чтобы вывести на экран количество двузначных чисел, вы можете использовать еще один цикл `for` и условный оператор `if`, который проверяет, что число находится в диапазоне от 10 до 99. Например, такой код на Python:

count = 0 # создаем переменную для подсчета двузначных чисел
for n in numbers: # перебираем все числа в списке
    if 10 <= n <= 99: # если число двузначное
        count += 1 # увеличиваем счетчик на 1
print("Количество двузначных чисел:", count) # выводим результат

Надеюсь, это поможет вам решить вашу задачу.