QBASIC

WAP TO DISPLAY SUM OF DIGITS

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