Question

How to check if a number is palindrome in Pascal

Answer 1

program PalindromeCheck;

uses SysUtils;

function IsPalindrome(num: Integer): Boolean;
var
  originalNum, reversed, remainder: Integer;
begin
  originalNum := num;
  reversed := 0;

  while num <> 0 do
  begin
    remainder := num mod 10;
    reversed := reversed * 10 + remainder;
    num := num div 10;
  end;

  IsPalindrome := (originalNum = reversed);
end;

var
  number: Integer;
begin
  number := 12321;

  if IsPalindrome(number) then
    WriteLn('The number ', number, ' is a palindrome')
  else
    WriteLn('The number ', number, ' is not a palindrome');
end.



(*
run:

The number 12321 is a palindrome

*)

 

70+ SQL courses for beginners and professionals