Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

 ¿Cuál es el número que si le sumamos la suma de sus propios dígitos nos da 100?

 (%i1)sumadigitos(n):=
 if n<10 then n
 else sumadigitos(quotient(n,10)) + mod(n,10)$
 (%i2)prog(n):=block([x:0],
  while x<n do (if x+sumadigitos(x)=n then print(x)
                   else x:x+1))$
 (%i3)prog(100);

Respuesta: (%o1)86