Qbasic

Qbasic to display the given number is 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

Comments

Popular posts from this blog

Qbasic