• 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
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.