home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / primfaktoren (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  183b  |  11 lines
  1. 10 print"[147]":rem primfaktoren
  2. 20 print"primfaktoren"
  3. 30 print"************"
  4. 40 input"zahl";z
  5. 60 ifz/2=int(z/2)thenprint2;:z=z/2:goto60
  6. 70 f=3
  7. 80 ifz/f=int(z/f)thenprintf;:z=z/f:goto80
  8. 90 f=f+2
  9. 100 iff<=zthen80
  10. 110 print:goto40
  11.