-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Dado un número de 4 dígitos determine si el resto de dividir por diez la suma de los tres primeros dígitos es igual al cuarto dígito. Se debe imprimir el mensaje correspondiente. Ejemplo:
a) Número 4723 4+7+2 = 13
13/10 -> cociente = 1, residuo = 3; 3 es igual a 3.
b) Número 4628 4+6+2 = 12
12/10 -> cociente = 1, residuo = 2; 2 no es igual a 8.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Proceso SumaDeLosTresPrimerosDigitos
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
suma <- (numero MOD 10000-numero MOD 1000)/1000+(numero MOD 1000-numero MOD 100)/100+(numero MOD 100-numero MOD 10)/10;
residuo <- suma MOD 10;
cociente <- (suma-residuo)/10;
Si residuo = numero MOD 10 Entonces
Escribir "Son iguales";
SiNo
Escribir "Son diferentes";
FinSi
Escribir "Valor de cociente: ", cociente;
Escribir "Valor de residuo: ", residuo;
Escribir "Valor de suma: ", suma;
FinProceso
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
suma <- (numero MOD 10000-numero MOD 1000)/1000+(numero MOD 1000-numero MOD 100)/100+(numero MOD 100-numero MOD 10)/10;
residuo <- suma MOD 10;
cociente <- (suma-residuo)/10;
Si residuo = numero MOD 10 Entonces
Escribir "Son iguales";
SiNo
Escribir "Son diferentes";
FinSi
Escribir "Valor de cociente: ", cociente;
Escribir "Valor de residuo: ", residuo;
Escribir "Valor de suma: ", suma;
FinProceso