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)

 Programa:
(%i1)sol(n):=
if n<10 then n
else sol(quotient(n,10))+mod(n,10)$
sol(100!);

Solución: 
(%o2)648