Назовем билет с шестизначным номером красивым, если его номер одинаково читается как слева направо, так и с право налево. Сколько красивых билетов в промежутке 189980 до 205505? а) 16, б) 17, в) 32, г) 15525.

Задача просто решается в программе 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