02-11-2012 19:15
La corrección, con un correcto sistema de control para evitar errores, en base lo dicho anteriormente.
I=999
k2 = infinito
Mientras i>=100
  J=i
  si i*j<k2
    devolver k2(i2*j2)
  Mientras j>=100
    K = i*j
    Si palindromo(k) y (k2 es infinito o k2<k)
      k2(i2*j2) = k(i*j)
    J--
  I--
devolver k2(i2*j2)
Fncion palindromo(k)
  K2=k
  Mientras k2>0
    R =k2%10
    K2/=10
    N=n*10+r
    Si n==k2 o k2/10==n devolver true
    Si n>k2 devolver false
  Devolver k==n
I=999
k2 = infinito
Mientras i>=100
  J=i
  si i*j<k2
    devolver k2(i2*j2)
  Mientras j>=100
    K = i*j
    Si palindromo(k) y (k2 es infinito o k2<k)
      k2(i2*j2) = k(i*j)
    J--
  I--
devolver k2(i2*j2)
Fncion palindromo(k)
  K2=k
  Mientras k2>0
    R =k2%10
    K2/=10
    N=n*10+r
    Si n==k2 o k2/10==n devolver true
    Si n>k2 devolver false
  Devolver k==n