"we should not just read books, we should learn to climb inside them and live there"
Total Pageviews
1,187
Friday, October 18, 2019
12.
QBASIC to find 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 didits="; S
END
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment