Thursday, October 3, 2019

Sum of digits.(SUB)

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
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Experience of Quarantine and SEE canceled

Our SEE was canceled due to the outbreak of Corona Virus (COVID-19). It's been 3 months since the Nepalese people have been staying home...

  • Experience of Quarantine and SEE canceled
    Our SEE was canceled due to the outbreak of Corona Virus (COVID-19). It's been 3 months since the Nepalese people have been staying home...
  • My journey with Jagat Mandir
    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...
  • Class on drug and alcohol abuse
    On 11th August 2019, Sunday (26 Shrawan,2076) we grade 10 students had a counselling class on the topic Drugs and Alcohol abuse. Our first c...