8 lines
160 B
Text
8 lines
160 B
Text
10 DEFINT A-Z
|
|
20 S=0: N=1
|
|
30 C=1
|
|
40 IF N<>1 THEN FOR I=1 TO N/2: C=C-(N MOD I=0): NEXT
|
|
50 IF N MOD C=0 THEN PRINT N,: S=S+1
|
|
60 N=N+1
|
|
70 IF S<100 THEN 30
|
|
80 END
|