Nice primes: Difference between revisions
Nice primesen FreeBASIC
(Add Seed7) |
(Nice primesen FreeBASIC) |
||
Line 680:
33 nice primes found.
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>
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
Dim As Integer column = 0, limit1 = 500, limit2 = 1000, sumn
Print !"Buenos n£meros entre"; limit1; " y"; limit2; !": \n"
For n As Integer = limit1 To limit2
Dim As String strn = Str(n)
Do
sumn = 0
For m As Integer = 1 To Len(strn)
sumn += Val(Mid(strn,m,1))
Next m
strn = Str(sumn)
Loop Until Len(strn) = 1
If isPrime(n) And isPrime(sumn) Then
column += 1
Print Using " ###"; n;
If column Mod 8 = 0 Then Print : End If
End If
Next n
Print !"\n\n"; column; " buenos n£meros encontrados."
Sleep
</lang>
{{out}}
<pre>
Buenos números entre 500 y 1000:
509 547 563 569 587 599 601 617
619 641 653 659 673 677 691 709
727 743 761 797 821 839 853 857
887 907 911 929 941 947 977 983
997
33 buenos números encontrados.
</pre>
=={{header|Go}}==
| |||