Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to find palindrome number using pascal

Critics Rating:

Users Rating:

(*PROGRAM TO FIND PALINDROME NUMBER*)

program palindrome;

uses crt;

var

n,m,x,r,s:longint;

begin

clrscr;

writeln("ENTER ANY 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;

if m=r then

writeln("PALINDROME")

else

writeln("NOT PALINDROME");

end.

Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.