• Lenguaje

    Pascal

  • Descripción

    Al recibir como dato un número de cuatro dígitos, genere una impresión como la que se muestra a continuación (el número es 6352)
    6
    3
    5
    2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program ImpresionDe4Digitos;
uses crt;

var digito_1, digito_2, digito_3, digito_4, 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;
    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;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.