Diferencia entre revisiones de «Problema 194 - Sumando los propios dígitos»
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
(Página creada con ' '''¿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,…') |
(Sin diferencias)
|
Revisión del 22:15 9 may 2011
¿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