QBASIC PROGRAM TO FIND SUM OF DIGITS OF A NUMBER

123 = 1+2+3 =6

 CLS
 INPUT "ENTER ANY NUMBER"; N
 S = 0
 WHILE N < > 0
 R = N MOD 10
 S = S + R
 N = N  10
 WEND
 PRINT "SUM OF DIGITS"; S
 END

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 SUB