21 lines
398 B
Plaintext
21 lines
398 B
Plaintext
Public Sub Main()
|
|
|
|
Print "The tau functions for the first 100 positive integers are:\n"
|
|
For i As Integer = 1 To 100
|
|
Print Format$(numdiv(i), "####");
|
|
If i Mod 10 = 0 Then Print
|
|
Next
|
|
|
|
End
|
|
|
|
Public Function numdiv(n As Integer) As Integer
|
|
|
|
Dim c As Integer = 1
|
|
For i As Integer = 1 To (n + 1) \ 2
|
|
If n Mod i = 0 Then c += 1
|
|
Next
|
|
If n = 1 Then c -= 1
|
|
Return c
|
|
|
|
End Function
|