Qbasic Program to check whether the given number is palindrome or not
Posted by Mahibabu
REM Program to check whether the given number is palindrome or not.
CLS
INPUT "Enter any digit"; n
a = n
WHILE n <> 0
r = n MOD 10
s = s * 10 + r
n = n \ 10
WEND
IF a = s THEN
PRINT a; " is Palindrome"
ELSE
PRINT a; " is not palindrome "
END IF
END