21 lines
279 B
Text
21 lines
279 B
Text
func cntdiv n .
|
|
i = 1
|
|
while i <= sqrt n
|
|
if n mod i = 0
|
|
cnt += 1
|
|
if i <> n div i
|
|
cnt += 1
|
|
.
|
|
.
|
|
i += 1
|
|
.
|
|
return cnt
|
|
.
|
|
i = 1
|
|
while n < 100
|
|
if i mod cntdiv i = 0
|
|
write i & " "
|
|
n += 1
|
|
.
|
|
i += 1
|
|
.
|