Giuga numbers: Difference between revisions
Giuga numbers in FreeBASIC
(Giuga numbers in FreeBASIC) |
|||
Line 25:
<br><br>
=={{header|FreeBASIC}}==
<lang freebasic>Function isGiuga(m As Uinteger) As Boolean
Dim As Uinteger n = m
Dim As Uinteger 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</lang>
{{out}}
<pre>The first 4 Giuga numbers are: 30 858 1722 66198</pre>
=={{header|Go}}==
| |||