CLS
INPUT "Enter any digit"; n
WHILE n <> 0
r = n MOD 10
s = s + r
n = n \ 10
WEND
PRINT "Sum of digits is "; s
END
Opening Ceremony
Bhim Higher Secondary School Suntopar, Dolakha
Opening Ceremony
Bhim Higher Secondary School Suntopar, Dolakha
JCT Students (First Batch(2069-2070))
Bhim Higher Secondary School Suntopar, Dolakha
Opening Ceremony
Bhim Higher Secondary School Suntopar, Dolakha
Opening Ceremony
Bhim Higher Secondary School Suntopar, Dolakha
Showing posts with label Qb. QBASIC. Show all posts
Showing posts with label Qb. QBASIC. Show all posts
Sunday, February 23, 2014
Program in QBASIC to print Sum of the Digits
CLS
INPUT "Enter any digit"; n
WHILE n <> 0
r = n MOD 10
s = s + r
n = n \ 10
WEND
PRINT "Sum of digits is "; s
END
Subscribe to:
Posts (Atom)
