21 lines
519 B
Plaintext
21 lines
519 B
Plaintext
Function isGiuga(m As Uinteger) As Boolean
|
|
Dim As Uinteger n = m, f = 2, l = Sqr(n)
|
|
Do
|
|
If n Mod f = 0 Then
|
|
If ((m / f) - 1) Mod f <> 0 Then Return False
|
|
n /= f
|
|
If f > n Then Return True
|
|
Else
|
|
f += 1
|
|
If f > l Then Return False
|
|
End If
|
|
Loop
|
|
End Function
|
|
|
|
Dim As Uinteger n = 3, c = 0, limit = 4
|
|
Print "The first "; limit; " Giuga numbers are: ";
|
|
Do
|
|
If isGiuga(n) Then c += 1: Print n; " ";
|
|
n += 1
|
|
Loop Until c = limit
|