home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 May / Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64 / Power Product (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  345 b   |  14 lines
  1. 0 rem << cd41-7 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #37-3 :
  4. 3 print"[147]power product"
  5. 4 rem    solution by
  6. 5 rem    j. alan kehr
  7. 6 rem ==================================
  8. 10 e=1000 : f=100 : g=10
  9. 20 for a=0to9 : for b=0to9 : for c=0to9: for d=0to9
  10. 30 h=e*a+f*b+g*c+d
  11. 40 i=int(a^b*c^d)
  12. 50 if h=i then print i
  13. 60 next : next : next : next
  14.