● WAP To check palindrome or not.
=>CLS
INPUT "Enter any number"; N
A=N
S=0
WHILE N<>0 THEN
R=N MOD 10
S= S*10+R
N=N\10
WEND
IF A=S THEN
PRINT " The number is palindrome "
ELSE
PRINT " The number is not palindrome "
END
INPUT "Enter any number"; N
A=N
S=0
WHILE N<>0 THEN
R=N MOD 10
S= S*10+R
N=N\10
WEND
IF A=S THEN
PRINT " The number is palindrome "
ELSE
PRINT " The number is not palindrome "
END
Comments
Post a Comment