DECLARE FUNCTION PAL(N)
CLS
INPUT"ENTER ANY NUMBER";N
P=PAL((N))
IF N=P THEN
PRINT"The given no is palindrome"
ELSE
PRINT"The given no is not palindrome"
END IF
END
FUNCTION PAL(N)
S=0
WHILE N<>0
R= N MOD 10
S=S*10+R
N=N\10
WEND
PAL=S
END FUNCTION
Subscribe to:
Post Comments (Atom)
My journey of Jagat Mandir School
13 Years of ExperiencE It is also said that school is next home of every child. "failing and learning" Teacher are like gods....
-
Sericulture Seri culture is the cultivation of silk worms to produce silk. There are five major types of silk of commercial importance,...
-
13 Years of ExperiencE It is also said that school is next home of every child. "failing and learning" Teacher are like gods....
No comments:
Post a Comment