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)
-
13 years ago when I came and stood in front of the Jagat mandir school, I was new to the environment. As the timed past, I slowly started to...
-
My father name is Grishma Raj Shrestha. He is like a superhero to me. He is 42 years old. He is old But he is a superhero to me. He is real...
-
We all grade 10 students were taken to picnic with our subjects teacher on the date of Magh 26, 2076(February 9,2020). Our destination was...
No comments:
Post a Comment