18 lines
322 B
Text
18 lines
322 B
Text
10 DEFINT A-Z
|
|
20 FOR I=1 TO 100
|
|
30 N=I: GOSUB 100
|
|
40 PRINT USING " ##";T;
|
|
50 IF I MOD 20=0 THEN PRINT
|
|
60 NEXT
|
|
70 END
|
|
100 T=1
|
|
110 IF (N AND 1)=0 THEN N=N\2: T=T+1: GOTO 110
|
|
120 P=3
|
|
130 GOTO 180
|
|
140 C=1
|
|
150 IF N MOD P=0 THEN N=N\P: C=C+1: GOTO 150
|
|
160 T=T*C
|
|
170 P=P+2
|
|
180 IF P*P<=N GOTO 140
|
|
190 IF N>1 THEN T=T*2
|
|
200 RETURN
|