qbasic program to identify os a number is a palindrome
Answers
Answered by
2
CLS
INPUT "Enter a number"; num
b = num
WHILE num <> 0
rev = num MOD 10
c = c * 10 + rev
num = num\10
WEND
IF b = c THEN
PRINT b; " is a Palindrome number"
ELSE
PRINT b; " is not a palindrome number"
END IF
END
INPUT "Enter a number"; num
b = num
WHILE num <> 0
rev = num MOD 10
c = c * 10 + rev
num = num\10
WEND
IF b = c THEN
PRINT b; " is a Palindrome number"
ELSE
PRINT b; " is not a palindrome number"
END IF
END
Similar questions