16 lines
223 B
Text
16 lines
223 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
|
|
.
|
|
for i to 100
|
|
write cntdiv i & " "
|
|
.
|