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