30 lines
309 B
Plaintext
30 lines
309 B
Plaintext
define count = 0, num = 0, mod = 0
|
|
define nums = 100, tau = 0
|
|
|
|
do
|
|
|
|
let count = count + 1
|
|
let tau = 0
|
|
let mod = 1
|
|
|
|
do
|
|
|
|
if count % mod = 0 then
|
|
|
|
let tau = tau + 1
|
|
|
|
endif
|
|
|
|
let mod = mod + 1
|
|
|
|
loop mod < count + 1
|
|
|
|
if count % tau = 0 then
|
|
|
|
let num = num + 1
|
|
print count
|
|
|
|
endif
|
|
|
|
loop num < nums
|