Juego de capicúas.

12² = 144
21² = 441

Cuadrado del simétrico o simétrico del cuadrado

  Una propiedad del número 12 es la siguiente: 

12² = 144 y 21² = 441, 

es decir, que el cuadrado de su número simétrico 

en cifras coincide con el simétrico de su cuadrado.

Esta propiedad la poseen otras parejas de números, 

en concreto hay, 

si la hoja de cálculo no falla, las siguientes:

Dos parejas de dos cifras: 12 y 21, 13 y 31

Cinco parejas de cuatro cifras, desde 102 con 201 hasta 311 y 113

Dieciocho de cinco cifras, desde 1002-2001 hasta 3111-1113

Cuarenta y una parejas de cinco cifras…

Por no alargar esta entrada, 

el código comentado y el correspondiente a la función ESCAPICUA 

la tienen en esta dirección:

http://www.hojamat.es/guias/descubrir/htm/ejemfun.htm

Código en Basic de OpenOffice.org:

Función INVERTIR_CIFRAS Objetivo: 

Si actúa sobre un número entero, devuelve otro número formado por las cifras del primero en orden inverso Observaciones: 

Si se aplica a un número no entero puede producir algún resultado inesperado

Public function invertir_cifras(n)

dim l%,i% 

dim auxi$,auxi2$,c$

dim m

auxi = str$(n)

l = len(auxi)

auxi=mid(auxi,2,l-1)

l = l-1 

auxi2="" 

for i=1 to l 

c=mid(auxi,i,1) 

auxi2=c+auxi2 

next i 

m=val(auxi2) 

invertir_cifras=m 

End function