Question

How to reverse an integer number in Pascal

Answer 1

program ReverseInteger;

function ReverseNumber(n: Integer): Int64;
var
    reversed, remainder: Int64;
begin
    reversed := 0;

    // Loop to reverse the digits of the number
    while n <> 0 do
    begin
        remainder := n mod 10;       // Get the last digit
        reversed := reversed * 10 + remainder; // Add it to the reversed number
        n := n div 10;               // Remove the last digit
    end;

    ReverseNumber := reversed; // Return the reversed number
end;

var
    num, reversedNum: Int64;
begin
    num := 10985;
    reversedNum := ReverseNumber(num);
    
    WriteLn('Original number: ', num);
    WriteLn('Reversed number: ', reversedNum);
end.



(*
run:

Original number: 10985
Reversed number: 58901

*)

 

70+ SQL courses for beginners and professionals