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
ange

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)