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,…') |
|||
| Línea 4: | Línea 4: | ||
if n<10 then n | if n<10 then n | ||
else sumadigitos(quotient(n,10)) + mod(n,10)$ | else sumadigitos(quotient(n,10)) + mod(n,10)$ | ||
| − | |||
(%i2)prog(n):=block([x:0], | (%i2)prog(n):=block([x:0], | ||
while x<n do (if x+sumadigitos(x)=n then print(x) | while x<n do (if x+sumadigitos(x)=n then print(x) | ||
else x:x+1))$ | else x:x+1))$ | ||
| − | |||
(%i3)prog(100); | (%i3)prog(100); | ||
Respuesta: (%o1)86 | Respuesta: (%o1)86 | ||
Revisión actual 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