Sum digits of an integer: Difference between revisions

==={{header|Craft Basic}}===

<syntaxhighlight lang="basic">define number = 0, base = 0, sum = 0

input "number: ", number

input "base: ", base

if number < 0 then

let number = number * -1

endif

if base < 2 then

let base = 2

endif

do

if number > 0 then

let sum = sum + number % base

let number = int(number / base)

endif

loop number > 0

print "sum of digits in base ", base, ": ", sum

end</syntaxhighlight>