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:-

Mersenne Number

  Write a program to check if a number is a Mersenne number or not. In    mathematics , a Mersenne number is a number that can be written in...