18 lines
448 B
Text
18 lines
448 B
Text
function SumDigits(number, nBase)
|
|
if number < 0 then number = -number
|
|
if nBase < 2 then nBase = 2
|
|
sum = 0
|
|
while number > 0
|
|
sum += number mod nBase
|
|
number /= nBase
|
|
end while
|
|
return sum
|
|
end function
|
|
|
|
print "The sums of the digits are:"
|
|
print
|
|
print "1 base 10 : "; SumDigits(1, 10)
|
|
print "1234 base 10 : "; SumDigits(1234, 10)
|
|
print "fe base 16 : "; SumDigits(0xfe, 16)
|
|
print "f0e base 16 : "; SumDigits(0xf0e, 16)
|
|
end
|