-
Lenguaje
Pascal
-
Descripción
Ingresar un sólo número entero de 3 cifras. El algoritmo deberá descomponer el número en "centena", "decena" y "unidad".
- Si la suma de la cifra que representa a la "centena" más la "unidad" es PAR, entonces deberá mostrar el resultado del triple de la decena + doble de la centena – unidad.
- Si la suma de la cifra que representa a la "centena" más la "unidad" es IMPAR, entonces deberá mostrar el resultado de la mitad de la decena + triple de la centena – un quinto de la unidad.
Muestre el resultado en detalle, los números descompuestos y el resultado de la operación.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program OperacionesConCentenaDecenaYUnidad;
uses crt;
var centena, decena, numero_entero, resultado, unidad : integer;
begin
write ('Ingresa el valor de numero entero: ');
readln (numero_entero);
unidad := numero_entero mod 10;
decena := (numero_entero mod 100-numero_entero mod 10) div 10;
centena := (numero_entero mod 1000-numero_entero mod 100) div 100;
if (centena+unidad) mod 2=0 then
begin
resultado := decena*3+centena*2-unidad;
end
else
begin
resultado := decena div 2+centena*3-unidad div 5;
end;
writeln ('Valor de centena: ', centena);
writeln ('Valor de decena: ', decena);
writeln ('Valor de resultado: ', resultado);
writeln ('Valor de unidad: ', unidad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var centena, decena, numero_entero, resultado, unidad : integer;
begin
write ('Ingresa el valor de numero entero: ');
readln (numero_entero);
unidad := numero_entero mod 10;
decena := (numero_entero mod 100-numero_entero mod 10) div 10;
centena := (numero_entero mod 1000-numero_entero mod 100) div 100;
if (centena+unidad) mod 2=0 then
begin
resultado := decena*3+centena*2-unidad;
end
else
begin
resultado := decena div 2+centena*3-unidad div 5;
end;
writeln ('Valor de centena: ', centena);
writeln ('Valor de decena: ', decena);
writeln ('Valor de resultado: ', resultado);
writeln ('Valor de unidad: ', unidad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.