home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Anon / Puzz2 (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1989-07-20  |  298 b   |  16 lines
  1.  >Puzz2
  2.  Solves 1/X + 1/Y + 1/Z = 4/5
  3.  for integral solutions
  4.  Suspect only two solutions, not got around to proving !
  5. A%=2:
  6. D%=5*A%
  7. N%=4*A%-5
  8.  B=1 
  9. C=(N%-B)/D%
  10.  1/C=
  11. (1/C) 
  12.  1/B=
  13. (1/B) 
  14.  A%,1/C,D%, 1/A%;"+";C;"+";1/D%;"=";1/A%+C+1/D%
  15. A%+=1:
  16.