61. Qbasic Program to print the sum of the digits of a given numbers

61.      WAP to print the sum of the digits of a given numbers using SUB Procedure.

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