12 lines
199 B
Text
12 lines
199 B
Text
procedure main()
|
|
every writes(" ",tau(seq(1))\100 | "\n")
|
|
end
|
|
|
|
procedure tau(n)
|
|
return ((n % ndivs(n)) = 0,n)
|
|
end
|
|
|
|
procedure ndivs(n)
|
|
every (c := 0, n%(1 to n) = 0, c +:= 1)
|
|
return c
|
|
end
|