# Problem #17 of the book: THE MAN WHO COUNTED (Sample Programs)

Problem #17 of the book: THE MAN WHO COUNTED

Caption/title: THE APPLES AND ANTS or 90 APPLES

See:

http://www.arvindguptatoys.com/arvindgupta/count.pdf

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

cls

#apples

a0 = 50

b0 = 30

c0 = 10

m = 0

mk = 0

ml = 0

mj = 0

y = 0

for j = 1 to 10

x = 0

#grups of apples

a1 = int(a0/j)

b1 = int(b0/j)

c1 = int(c0/j)

#remain of apples

a2 = a0 - (a1*j)

b2 = b0 - (b1*j)

c2 = c0 - (c1*j)

#comprobate apples

a3 = a1 + a2

b3 = b1 + b2

c3 = c1 + c2

if (a1*j)+a2 = a0 and (b1*j)+b2 = b0 and (c1*j)+c2 = c0 then

x = 1

end if

if x = 1 then

for k = 1 to 10 #price first phase

for l = 1 to 10 #price second phase

a5 = (a1 * k) + (a2 * l)

b5 = (b1 * k) + (b2 * l)

c5 = (c1 * k) + (c2 * l)

if a5 = b5 and a5 = c5 and b5 = c5 then

print "fatima first phase : "+a1*j +" apples bring a profit of "+a1*k +" dinars"

print "fatima second phase: "+a2+" apples bring a profit of "+a2*l +" dinars"

print "fatima total : "+a0+" apples bring a profit of "+a5 +" dinars"

print

print "cunda first phase : "+b1*j +" apples bring a profit of "+b1*k +" dinars"

print "cunda second phase: "+b2+" apples bring a profit of "+b2*l +" dinars"

print "cunda total : "+b0+" apples bring a profit of "+b5 +" dinars"

print

print "shia first phase : "+c1*j +" apples bring a profit of "+c1*k +" dinars"

print "shia second phase: "+c2+" apples bring a profit of "+c2*l +" dinars"

print "shia total : "+c0+" apples bring a profit of "+c5 +" dinars"

print

goto fin

end if

next l

next k

end if

next j

fin:

print "End"

end