Prime numbers which contain 123: Difference between revisions
Prime numbers which contain 123 en FreeBASIC
Thundergnat (talk | contribs) (→{{header|Raku}}: use defaults) |
(Prime numbers which contain 123 en FreeBASIC) |
||
Line 57:
Found 451 "123" primes below 1000000
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>
Dim Shared As Integer column
Function isPrime(Byval ValorEval As Integer) As Boolean
If ValorEval <= 1 Then Return False
For i As Integer = 2 To Int(Sqr(ValorEval))
If ValorEval Mod i = 0 Then Return False
Next i
Return True
End Function
Sub prime(limite As Long, mostrar As Boolean)
column = 0
For n As Integer = 1 To limite
Dim As String strn = Str(n)
If isPrime(n) And Instr(strn,"123") > 0 Then
column += 1
If mostrar Then
Print Using " ##### "; n;
If (column Mod 8) = 0 Then Print
End If
End If
Next n
End Sub
Print !"N£meros primos que contienen 123:\n"
Dim As Long limite = 1e5
prime(limite, true)
Print !"\n\n\Encontrados "; column; " n£meros primos por debajo de"; limite
limite = 1e6
prime(limite, false)
Print !"\n\n\Encontrados "; column; " n£meros primos por debajo de"; limite
Sleep
</lang>
{{out}}
<pre>
Números primos que contienen 123:
1123 1231 1237 8123 11239 12301 12323 12329
12343 12347 12373 12377 12379 12391 17123 20123
22123 28123 29123 31123 31231 31237 34123 37123
40123 41231 41233 44123 47123 49123 50123 51239
56123 59123 61231 64123 65123 70123 71233 71237
76123 81233 81239 89123 91237 98123
Encontrados 46 números primos por debajo de 100000
Encontrados 451 números primos por debajo de 1000000
</pre>
=={{header|Go}}==
| |||