QBASIC to check Palindrome or not
CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <> 0
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 IF
END
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <> 0
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 IF
END
No comments:
Post a Comment