31 lines
349 B
Text
31 lines
349 B
Text
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
|