-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Dado un entero positivo N con 6 dígitos, que representa el número de tarjeta de crédito de un cliente en Internet, y otro par de enteros que representan el día y mes de una compra en particular, es decir:
N = n1n2n3n4n5n6
D = dd
M = mm
Se quiere que elabore un programa que genere un nuevo número R siguiendo las reglas que a continuación se describen:
Separe N en tres grupos de dos dígitos.
Intercambie los dígitos de cada par.
Construya R con los tres nuevos pares en orden inverso, pero incluyendo entre ellos el día D y el mes M.
Ejemplo: N = 123456, D = 12, M = 4.
R = 6512430421
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10
Proceso TarjetaDeCreditoEnOrdenInverso
Escribir Sin Saltar "Ingresa el valor de D:";
Leer D;
Escribir Sin Saltar "Ingresa el valor de M:";
Leer M;
Escribir Sin Saltar "Ingresa el valor de N:";
Leer N;
R <- (N MOD 10)*1000000000+(N MOD 100-N MOD 10)*10000000+D*1000000+(N MOD 1000-N MOD 100)*1000+(N MOD 10000-N MOD 1000)*10+M*100+(N MOD 100000-N MOD 10000)/1000+(N MOD 1000000-N MOD 100000)/100000;
Escribir "Valor de R: ", R;
FinProceso
Escribir Sin Saltar "Ingresa el valor de D:";
Leer D;
Escribir Sin Saltar "Ingresa el valor de M:";
Leer M;
Escribir Sin Saltar "Ingresa el valor de N:";
Leer N;
R <- (N MOD 10)*1000000000+(N MOD 100-N MOD 10)*10000000+D*1000000+(N MOD 1000-N MOD 100)*1000+(N MOD 10000-N MOD 1000)*10+M*100+(N MOD 100000-N MOD 10000)/1000+(N MOD 1000000-N MOD 100000)/100000;
Escribir "Valor de R: ", R;
FinProceso