Unidades, decenas, centenas, milésimas y decenas de millar en lenguaje Pascal

Lenguaje

Pascal
Descripción

Ingresar un numero de 5 dígitos, encontrar las unidades, decenas, centenas, milésimas, decenas de millar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

program UnidadesDecenasCentenasMilesimasYDecenasDeMillar;

uses crt;

var centenas, decenas, decenas_de_millar, milesimas, numero : integer;

var unidades : integer;

begin

    write ('Ingresa el valor de numero: ');

    readln (numero);

    unidades := numero mod 10;

    decenas := (numero mod 100-numero mod 10) div 10;

    centenas := (numero mod 1000-numero mod 100) div 100;

    milesimas := (numero mod 10000-numero mod 1000) div 1000;

    decenas_de_millar := (numero mod 100000-numero mod 10000) div 10000;

    writeln ('Valor de centenas: ', centenas);

    writeln ('Valor de decenas: ', decenas);

    writeln ('Valor de decenas de millar: ', decenas_de_millar);

    writeln ('Valor de milesimas: ', milesimas);

    writeln ('Valor de unidades: ', unidades);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.