' Puzzlet #027
' An integer is incremented by any digit from 1
' to 9. The new value is exactly divisible by
' the added digit. What is the lowest value
' integer for which this is true?
' By Dave Ellis.
declare PrintResults(p: int)
def flag, i, j, k: int
def n: float
' i holds the
integer to be divided
' j holds the dividing integer (1 to 9)
' k holds the sum of i + j
' n holds the result of k/j
i
= 1
openconsole
print "Calculcating ...": print
do
k = i
flag = 1
j = 1
do
k = i + j
n = k/j
if n <> int(n)
flag = 0
else
j = j + 1
endif
until flag = 0 | j > 9
i = i + 1
until flag
PrintResults(i - 1)
print: print "That's
all!"
print: print "Press
a key to exit ... ",
do: until inkey$
<> ""
closeconsole
end
sub PrintResults(p)
' pretty printer
def it, sum: int
for it = 1 to
9
sum = p + it
print p, "+ ", it, "=
", sum,
print " : ",
sum, "/ ", it, "= ",
print using ("####",
sum/it)
next it
return
