home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 November
/
64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64
/
primzahlen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
152b
|
12 lines
10 print"[147]":rem primzahlen
20 print"primzahlen"
30 print"**********"
40 print2;3;
50 f=3
60 fori=3toint(sqr(f))step2
70 iff/i=int(f/i)then100
80 nexti
90 printf;
100 f=f+2
110 goto60