DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";N
CALL SUM(N)
END
SUB SUM(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB
Subscribe to:
Post Comments (Atom)
-
QBasic program 1. WAP to input any number and check whether the given no. Is divisible by 3 and 7 or not using function procedure. ...
-
On 4th Shrawan, 2076 ( 20 July, 2019) We 10th graders went for monsoon hike to Changunarayan to Muhan pokhari. We went there with our cla...
-
Janai Purnima is observed in the month of Shrawan. It is called Rakshya Bandhan as th is festival observes the bond of purity and security...
No comments:
Post a Comment