● Reverse Digits.
=> CLS
INPUT "Enter any number"; N
S=0
WHILE N<>0
R=N MOD 10
S = S*10+R
N=N\10
WEND
PRINT " Reverse of digits ";S
END
INPUT "Enter any number"; N
S=0
WHILE N<>0
R=N MOD 10
S = S*10+R
N=N\10
WEND
PRINT " Reverse of digits ";S
END
Comments
Post a Comment