Diferencia entre revisiones de «Ejercicio 20: Sumar los dígitos de 100!»
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
(Página creada con ' (%i1)sol(n):= if n<10 then n else sol(quotient(n,10))+mod(n,10)$ sol(100!); (%o2)648') |
|||
| Línea 1: | Línea 1: | ||
| − | + | ''' Programa:''' | |
(%i1)sol(n):= | (%i1)sol(n):= | ||
if n<10 then n | if n<10 then n | ||
| Línea 5: | Línea 5: | ||
sol(100!); | sol(100!); | ||
| + | '''Solución:''' | ||
(%o2)648 | (%o2)648 | ||
Revisión actual del 21:28 25 abr 2011
Programa: (%i1)sol(n):= if n<10 then n else sol(quotient(n,10))+mod(n,10)$ sol(100!);
Solución: (%o2)648