32 lines
456 B
Text
32 lines
456 B
Text
10 let count = 0
|
|
20 let num = 0
|
|
30 let modulus = 0
|
|
40 let nums = 100
|
|
50 let tau = 0
|
|
|
|
60 rem do
|
|
|
|
70 let count = count + 1
|
|
80 let tau = 0
|
|
90 let modulus = 1
|
|
|
|
100 rem do
|
|
|
|
100 if count mod modulus <> 0 then 130
|
|
|
|
120 let tau = tau + 1
|
|
|
|
130 rem endif
|
|
|
|
140 let modulus = modulus + 1
|
|
|
|
150 if modulus < count + 1 then 100
|
|
|
|
160 if count mod tau <> 0 then 190
|
|
|
|
170 let num = num + 1
|
|
180 print count, tab,
|
|
|
|
190 rem endif
|
|
|
|
200 if num < nums then 60
|