1 REM https://rosettacode.org/wiki/Sum_digits_of_an_integer 10 LET number = 12345678 20 LET base = 10 30 IF number >= 0 THEN 50 40 LET number = number * -1 50 IF base >= 2 THEN 70 60 LET base = 2 70 IF number <= 0 THEN 100 80 LET sum = sum + number MOD base 90 LET number = INT(number / base) 100 IF number > 0 THEN 70 110 PRINT "sum of digits in base "; base; " = "; sum
Return to Example Index