(11C) Sum of All Digits

[Gamo]

Program to Sum Digits and if the answer of the previous sum is over 9 then
sum again.

Example:

21579 = 2+1+5+7+9 = 24 --> 2+4 = 6

18235 = 1+8+2+3+5 = 19 --> 1+9 = 10 --> 1+0 = 1

987654321 ----> 9

-----------------------------------------------------------

Procedure:

Desire Digits [A] --> Answer Sum of All Digits
Continue with other digits with [R/S] or [A]

Program:

Code:


LBL A
ENTER
LOG
INT
9
-
10^X
÷
9
ENTER
ENTER
CLx
+
Rv
÷
INT
R^
x
-
X≠0
R/S
CLx
9
RTN

Gamo