"we should not just read books, we should learn to climb inside them and live there"
Total Pageviews
1,179
Friday, October 18, 2019
13.
QBASIC to find Product of Digits
CLS
INPUT "Enter any number'; N
P = 1
WHILE N<> 0
R = N MOD 10
P = P*R
N = N\10
WEND
PRINT "Product of digits="; P
END
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment