Определить, является ли число двузначным - Pascal ABC
Формулировка задачи:
Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет».
Буду очень благодарна за помощь
Решение задачи: «Определить, является ли число двузначным»
textual
Листинг программы
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. Таким образом, данный код позволяет определить, является ли число двузначным или нет.