Определить, является ли число двузначным - Pascal ABC

Формулировка задачи:

Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь

Решение задачи: «Определить, является ли число двузначным»

Листинг программы

program chis;
var 
  n, ch, i: integer;
begin
  write('n= ');
  readln(n);
  for i:= 1 to n do
  begin
    readln(ch);
    if (ch>9) and (ch<100) then writeln('DA')
    else writeln('NET');
  end;
end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит чтение числа от пользователя и затем его проверка на двузначность. Если число состоит из двух цифр, то выводится буква DA, в противном случае выводится буква NET. В программе используются следующие переменные:

n - переменная для хранения числа, прочитанного от пользователя;
ch - переменная для хранения одной цифры, прочитанной от пользователя;
i - переменная для внутреннего счетчика цикла. Код начинается с объявления этих переменных. Затем происходит чтение числа от пользователя с помощью функции readln(). Число сохраняется в переменной n. Далее следует цикл for, который выполняется n раз. На каждой итерации цикла считывается одна цифра от пользователя и сохраняется в переменной ch. Затем происходит проверка условия (ch>9) и (ch<100). Если это условие выполняется, то выводится буква DA. Если условие не выполняется, то выводится буква NET. Таким образом, данный код позволяет определить, является ли число двузначным или нет.