QBASIC PROGRAMMING 

 

*WAP TO FIND SUM OF DIGIT . (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 DIGIT ";S

END SUB