In this article I would like to share with you a program that will prompts the user to give a number and then the program will check if the given number is a palindrome or not a palindrome using Pascal as our programming language.
I am currently accepting programming work, it project, school programming projects , thesis and capstone projects, IT consulting work and web development work kindly contact me in the following email address for further details. If you want to advertise in my website kindly contact me also in my email address also. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.
Sample Program Output
Program Listing
palindrome.pas
program PalindromeNumber;
uses
WinCrt;
var
n,m,x,r,s:longint;
Begin
write('Palindrome Number in Turbo Pascal');
writeln;
writeln;
write('Give a Number : ');
read(n);
m:=n;
r:=0;
while n>0 do
begin
x:=n mod 10;
r:=r*10+x;
n:=n div 10;
end;
writeln;
writeln;
if m=r then
begin
writeln('The given number ' ,m, ' is a Palindrome Number.')
end
else
writeln('The given number ' ,m, ' not a Palindrome Number.');
end.
