DECLARE SUB SUM( N)
CLS
INPUT " ENTER ANY DIGIT"; 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 DIGIT ="; S
END SUB
Subscribe to:
Post Comments (Atom)
My Journey with JM
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...
-
My experience We all the students of grade 10 were taken to Election Commission, Nepal on the day 3rd Bhadra, Tuesday. We all the studen...
-
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I... -
Experience on drug abuse On 26th shrawan we the students of grade 10 of Jagat Mandir school were provided a class by Nepal Police about t...
No comments:
Post a Comment