Quienes seguís este blog habréis advertido que se propone en él el uso de las hojas de cálculo
para investigar y divertirse.
Hoy proponemos una macro para buscar ejemplos similares al propuesto por Eugenio Manuel en su blog Ciencia del Siglo XXI - Mirando con la mente.
882+332=8833
¿Existirán otros números de cuatro cifras con esta propiedad?
Si deseas averiguarlo, implementa este código, que te sirve para Excel y para OpenOffice.org Calc
(En rojo los comentarios)
Sub busqueda
dim i,j,k,l (Cifras del número)
dim a,b,c (a y b están formados por dos cifras)
for i=0 to 9
for j=0 to 9
for k=0 to 9
for l=0 to 9
a=10*i+j (Formamos un número con las dos primeras cifras)
b=10*k+l (Formamos otro con las dos últimas)
c=100*a+b (Formamos el número total)
if a^2+b^2=c then (Si se cumple, tenemos la solución)
msgbox(a) (Se comunican las soluciones)
msgbox(b)
msgbox(c)
end if
next l
next k
next j
next i
End Sub
La respuesta es que existe otro número de cuatro cifras con la misma propiedad ¿Cuál?.