Respondiendo Consultas

Revisando las estadísticas del weblog descubrí que una persona llegó al mismo queriendo averiguar un algoritmo para sacar boletos capicuas. Como trabajo en sistemas y me dedico a esto aqui va un simpLe algoritmo ideado en el momento para resolver este problema que lo aqueja:

For A=1 to N
For B= Largo de la Cadena A to 1 Step -1
Concantenar en C los Substr(A,B,1)
Siguiente B
Si C = A
A es Capicua
Fin
Limpiar C
Siguiente A

EJEMPLO:
For A=23532
For B= 5(Largo de la Cadena A) to 1 Step -1
Concantenar en C los Substr(A,B,1)
Substr(23532,5,1) = '2'
Substr(23532,4,1) = '3'
Substr(23532,3,1) = '5'
Substr(23532,2,1) = '3'
Substr(23532,1,1) = '2'
C=23532
Siguiente B
Si C (23532) = A (23532)
A ( 23532) es Capicua
Fin
Limpiar C
Siguiente A