QBASIC Decimal to Binary

QBasic program
Accept a number in decimal and convert in binary.
CLS
INPUT "ENTER A NUMBER:"; N
S=1
WHILE (N>0)
R=N MOD 2
S=S*10+R
N=N\2
WEND
PRINT (S-1)\10
END

COMMENT

No comments:

Post a Comment

any problem in any program comment:-

Join this Channel

 https://whatsapp.com/channel/0029VbCS7OXJJhzbe6bZcR1L