Diferencia entre revisiones de «Problema 20 del proyecto Euler»
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
(Página creada con ' '''Enunciado: ''' n ! significa n ( n 1) ... 3 2 1 Por ejemplo, 10! = 109 ... 3 2 1 = 3.628.800, y la suma de los dígitos en el número 10! es de 3 + 6 + 2 + 8 + 8 + 0 + 0 = …') |
(Sin diferencias)
|
Revisión actual del 13:20 19 abr 2011
Enunciado:
n ! significa n ( n 1) ... 3 2 1
Por ejemplo, 10! = 109 ... 3 2 1 = 3.628.800, y la suma de los dígitos en el número 10! es de 3 + 6 + 2 + 8 + 8 + 0 + 0 = 27.
Encuentra la suma de los dígitos en el número 100!
Solución:
(%i1) set_display(ascii);
(%i2) suma(n):=block([aux,sol],
aux : n!,
sol : 0,
while aux>=10 do
(sol : sol + mod(sol,10),
aux : gcd(aux,10)),
print(sol))$
suma(100);