Invertir un numero de tres cifras
Publicado por Ibai (5 intervenciones) el 19/03/2021 11:27:12
Hola buenas, en el ejercicio me piden que invierta un numero entero de tres cifras utilizando las asignaciones basicas, os adjunto los pasos realizados, gracias de antemano :) (solo me interesa resolver la ultima parte, tengo que ponerlo en forma de un numero) :
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
PROGRAM Numero3cifr_digitos ;
VAR
iCent , iDec , iUni : Integer ;
iNum : Integer ; iZ : Integer ;BEGIN
Write ('Introduzca un entero de tres cifras: ') ;
ReadLn (iNum) ;
WriteLn ;
iUni := iNum MOD 10 ;
iNum := iNum DIV 10 ;
iDec := iNum MOD 10 ;
iCent := iNum DIV 10 ;
WriteLn ('Sus digitos, en orden inverso, son: ', iUni , iDec , iCent ) ;
WriteLn ;
iZ := iUni ;
iUni := iCent ;
iCent := iZ ;
WriteLn ('El numero que forma es: ', iCent, iDec , iUni ) ;
ReadLn
END.Valora esta pregunta
0