-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Dado un número natural de 5 cifras, determine la suma y el producto de las cifras del número.
1
2
3
4
5
6
2
3
4
5
6
Proceso ProductoDe5Cifras
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
producto <- ((un_numero MOD 100000-un_numero MOD 10000)/10000)*((un_numero MOD 10000-un_numero MOD 1000)/1000)*((un_numero MOD 1000-un_numero MOD 100)/100)*((un_numero MOD 100-un_numero MOD 10)/10)*(un_numero MOD 10);
Escribir "Valor de producto: ", producto;
FinProceso
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
producto <- ((un_numero MOD 100000-un_numero MOD 10000)/10000)*((un_numero MOD 10000-un_numero MOD 1000)/1000)*((un_numero MOD 1000-un_numero MOD 100)/100)*((un_numero MOD 100-un_numero MOD 10)/10)*(un_numero MOD 10);
Escribir "Valor de producto: ", producto;
FinProceso