-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Al recibir como dato un número de cuatro dígitos, genere una impresión como la que se muestra a continuación (el número es 6352)
6
3
5
2
1
2
3
4
5
6
7
8
9
10
11
12
2
3
4
5
6
7
8
9
10
11
12
Proceso ImpresionDe4Digitos
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
digito_1 <- (un_numero MOD 10000-un_numero MOD 1000)/1000;
digito_2 <- (un_numero MOD 1000-un_numero MOD 100)/100;
digito_3 <- (un_numero MOD 100-un_numero MOD 10)/10;
digito_4 <- un_numero MOD 10;
Escribir "Valor de digito 1: ", digito_1;
Escribir "Valor de digito 2: ", digito_2;
Escribir "Valor de digito 3: ", digito_3;
Escribir "Valor de digito 4: ", digito_4;
FinProceso
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
digito_1 <- (un_numero MOD 10000-un_numero MOD 1000)/1000;
digito_2 <- (un_numero MOD 1000-un_numero MOD 100)/100;
digito_3 <- (un_numero MOD 100-un_numero MOD 10)/10;
digito_4 <- un_numero MOD 10;
Escribir "Valor de digito 1: ", digito_1;
Escribir "Valor de digito 2: ", digito_2;
Escribir "Valor de digito 3: ", digito_3;
Escribir "Valor de digito 4: ", digito_4;
FinProceso