• Lenguaje

    Pascal

  • Descripción

    Realizar un algoritmo tal que dado un número entero de cuatro dígitos, lo muestre invertido. Además determinar si todos los dígitos del número son pares. Por ejemplo, si el número fuera 5688 no cumpliría la condición ya que el dígito más significativo -5- sería impar, si por el contrario el número fuera 6244, si cumpliría ya que todos los dígitos son pares.

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
27
28
29
30
program InvertidoDeCuatroDigitos;
uses crt;

var digito_1, digito_2, digito_3, digito_4, invertido : integer;
var un_numero : integer;
begin
    write ('Ingresa el valor de un numero: ');
    readln (un_numero);
    digito_1 := (un_numero mod 10000-un_numero mod 1000) div 1000;
    digito_2 := (un_numero mod 1000-un_numero mod 100) div 100;
    digito_3 := (un_numero mod 100-un_numero mod 10) div 10;
    digito_4 := un_numero mod 10;
    invertido := digito_4*1000+digito_3*100+digito_2*10+digito_1;
    if (digito_1 mod 2=0) and (digito_2 mod 2=0) and (digito_3 mod 2=0) and (digito_4 mod 2=0) then
        begin
            writeln ('Todos los d'#161'gitos del n'#163'mero son pares.');
        end
    else
        begin
            writeln ('No cumple la condici'#162'n.');
        end;
    writeln ('Valor de digito 1: ', digito_1);
    writeln ('Valor de digito 2: ', digito_2);
    writeln ('Valor de digito 3: ', digito_3);
    writeln ('Valor de digito 4: ', digito_4);
    writeln ('Valor de invertido: ', invertido);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.