P__9_E27

=__**Leer un número de 3 cifras, obtener los dígitos y cambiar su orden**__= > > Escribir un programa que lea desde teclado una numero de tres cifras > * Calcular los tres dígitos y mostrarlos en orden inverso > * Calcular el numero que forman los tres dígitos en orden inverso y mostrarlo

code format="pascal" PROGRAM P__9E27 ; VAR iNumero, iCentenas, iDecenas, iUnidades, iNumInverso : Integer ; BEGIN Writeln ; Write ('     Escribe un numero entero de tres cifras: ') ; ReadLN (iNumero) ;

iUnidades := iNumero MOD 10 ; iNumero  := iNumero DIV 10 ;

iDecenas := iNumero MOD 10 ; iCentenas := iNumero DIV 10 ;

Writeln ; WriteLn ('           Sus digitos, en orden inverso son: ', iUnidades, iDecenas, iCentenas) ;

iNumInverso := iUnidades * 100 + iDecenas * 10 + iCentenas ;

Writeln ; WriteLn ('Número que forma los dígitos en orden inverso: ', iNumInverso ) ;

Readln ; END. { Fin de P__9E27.PAS } code