Friday, October 4, 2019

Qbasic program to find the sum of digits.


Write a program to find the sum of digits.


CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S+ R
N = N \ 10
WEND
PRINT "Sum of digits"; S
END

No comments:

Post a Comment

E-Commerce

E-Commerce (Electronic Commerce) E-Commerce or Electronic Commerce means buying and selling of goods, products, or services over the interne...