Wednesday, October 16, 2019

QBASIC to find Sum of digits using SUB

DECLARE SUB SUM ( N )
CLS
INPUT "Enter any number"; 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="; S
END SUM
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
  • Experience of JM
    During my time in high school I had it really good moments, but my best moments that I've experienced are in a particular class during ...
  • QBASIC to find Area of Circle using SUB
    DECLARE SUB Area ( R ) CLS INPUT "Enter radius'; R CALL Area ( R ) END SUB Area ( R ) A = 22 / 7 * R ^ 2 PRINT "Area o...
  • My Father
      My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...