27 lines
838 B
Text
27 lines
838 B
Text
coconuts = 11
|
|
|
|
for ns = 2 to 9
|
|
dim hidden(ns)
|
|
coconuts = int(coconuts / ns) * ns + 1
|
|
do
|
|
nc = coconuts
|
|
for s = 1 to ns+1
|
|
if mod(nc, ns) = 1 then
|
|
hidden(s-1) = int(nc / ns)
|
|
nc = nc - (hidden(s-1) + 1)
|
|
if s = ns and not mod(nc, ns) then
|
|
print ns, " sailors require a minimum of ", coconuts, " coconuts"
|
|
for t = 1 to ns
|
|
print "\tSailor ", t, " hides ", hidden(t - 1)
|
|
next
|
|
print "\tThe monkey gets ", ns
|
|
print "\tFinally, each sailor takes ", int(nc / ns), "\n"
|
|
break 2
|
|
end if
|
|
else
|
|
break
|
|
end if
|
|
next
|
|
coconuts = coconuts + ns
|
|
loop
|
|
next
|