Sum of digits

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

Comments

Popular posts from this blog

My experience in jagat mandir school

PERFECT SQR OR NOT

Picnic experience