9 lines
183 B
Text
9 lines
183 B
Text
10 FOR N = 1 TO 100
|
|
20 IF N < 3 THEN T=N: GOTO 70
|
|
30 T=2
|
|
40 FOR A = 2 TO INT( (N+1)/2 )
|
|
50 IF N MOD A = 0 THEN T = T + 1
|
|
60 NEXT A
|
|
70 PRINT T;
|
|
80 IF N MOD 10 = 0 THEN PRINT
|
|
90 NEXT N
|