La letra del ejercicio es la siguiente:
"Supóngase que un número de tres dígitos tiene la forma abc. Por ejemplo, si el número fuera 730, entonces a representa al siete, b al tres y c al cero. Escríbanse expresiones en Pascal que produzcan los "números" cba y accb."
Esto fue lo que hice:
Código
Me gustaría saber si está bien o si se puede simplificar de alguna manera, gracias!
Program ejercicio_4_capitulo3 (input, output); uses crt; var numero, a, b, c: integer; begin clrscr; write ('Escriba un numero entero de 3 cifras : '); read(numero); a := trunc(numero DIV 100); writeln ('a= ',(a)); b := trunc ((numero - a * 100) DIV 10); writeln ('b= ',(b)); c := (numero - a * 100) - (b * 10); writeln ('c= ',(c)); writeln (c, b, a); writeln (a, c, c, b); readkey end.