Назовем билет с шестизначным номером красивым,если его номер одинаково читается как слева направо, так и с право налево.Сколько

Задача просто решается в программе Pascal ABC. Пусть i - числа из промежутка [189980;205505]. В каждом цикле будем находить первые три цифры числа i, последние три цифры числа i,  находить "перевертыш" последних трех цифр числа i, сравнивать первые три цифры числа i с "перевертышем" последних трех цифр числа i. Если они будут равны, значит количество счастливых билетов kol увеличиваем на 1. Программа будет иметь вид.

program zadacha;

uses crt;

var i, e, f, j, k, l, m, p, kol: integer;

begin

kol:=0; {начальное значение kol}

for i:=189980 to 205505 do

begin

e:=i div 1000; {первые 3 цифры числа i}

j:=i mod 1000; {последние 3 цифры числа i}

f:=j mod 10; {3 цифра числа j}

k:=j div 100; {1 цифра числа j}

m:=j div 10; {первые 2 цифры числа j}

l:=m mod 10; {2 цифра числа  j}

p:=f*100+l*10+k;  {«перевертыш» числа j}

if e=p then kol:=kol+1; {сравнение первых трех цифр числа i и «перевертыша» числа j }

end;

writeln ('kol=',kol);  {вывод результата на экран}

end.

После выполнения программы получаем ответ kol = 17. Значит, среди билетов с данными номерами 17 билетов имеют счастливый номер.

Ответ: б) 17