Я в свое время сталкивался с подобной задачей, поэтому решил поделиться своим опытом.
Для решения этой задачи на языке Pascal нужно использовать цикл, который будет считывать числа до тех пор, пока не будет введен ноль. Один из способов решения этой задачи может выглядеть следующим образом⁚
program TwoDigitNumbers;
var
number⁚ integer;
count⁚ integer;
begin
count ⁚ 0;
repeat
write(‘Введите целое число⁚ ‘);
readln(number);
if (number mod 100) div 10 3 then
if (number > 10) and (number < 99) then
count ⁚ count 1;
until number 0;
writeln('Количество двузначных чисел, заканчивающихся на 3⁚ ', count);
end.Давайте разберемся, как работает этот код.
Сначала мы объявляем две переменные⁚ `number` (для вводимых чисел) и `count` (для подсчета количества двузначных чисел, заканчивающихся на 3).
Затем мы входим в цикл `repeat-until`, который будет выполняться до тех пор, пока не будет введен ноль. Внутри цикла мы просим пользователя ввести целое число и считываем его с помощью `readln`.
Далее идет проверка на то, чтобы число было двузначным и заканчивалось на 3. Для этого мы делим число на 100 и берем остаток от деления на 10. Если этот остаток равен 3, значит число заканчивается на 3; Затем мы проверяем, чтобы число было не меньше 10 и не больше 99, чтобы оно было двузначным. Если оба этих условия выполняются, мы увеличиваем счетчик `count` на 1.
После выхода из цикла мы выводим на экран количество полученных двузначных чисел, заканчивающихся на 3.
Надеюсь, этот опыт будет полезен для вас!