DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";N
CALL SUM(N)
END
SUB SU8M(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB
Subscribe to:
Post Comments (Atom)
-
Each and every person have got a superhero, and for me its my Dad. My father Love U Dad name is Mlangai Tamang. He is a Technician. H... -
Raksha Bandhan, one of the main Hindu festivals, is celebrated to strengthen the brother sister bond. On this day, the sisters tie a sacr...
No comments:
Post a Comment