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 SUM
Subscribe to:
Post Comments (Atom)
-
My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...
-
Tour To Dhading Firstly, When I heard that we were going to Dhading for 1 night and 2 days i.e. on saturday and sunday( 16th an... -
Gai Jatra Gaijatra is the festival of cows.Gai is known as cow and jatra is known as festival in Nepal. This festival is basically cele...
No comments:
Post a Comment