■ Pascal_023 ► Leer un número entero y mostrarlo al revés

Ejercicio: Solicitar un número entero al usuario y mostrarlo al revés.

Entrada: Un número entero.

Salida: El número al revés.

Program Pascal_023;

uses

    crt, Math;

var

    num, digitos, i : longint;

Begin

    clrscr;

    WriteLn('Ingresa un número');

    ReadLn(num);

    

    digitos := (trunc(ln(abs(num)) / ln(10))) + 1;

    Write(num mod 10);

    for i:=1 to digitos - 1 do

    begin

        num := num div 10;

        Write(num mod 10);

    end;

End.