Назовём билет с шестизначным номером благовидным, если его номер идиентично читается

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

program zadacha;

uses crt;

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

begin

kol:=0;

for i:=189980 to 205505 do

begin

e:=i div 1000; 1-ые 3 числа числа i

j:=i mod 1000; заключительные 3 числа числа i

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

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

m:=j div 10; 1-ые 2 цифры числа j

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

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

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

end;

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

end.

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

Ответ: б) 17