Nice primes: Difference between revisions
Content added Content deleted
(Add Seed7) |
(Nice primesen FreeBASIC) |
||
Line 680: | Line 680: | ||
33 nice primes found. |
33 nice primes found. |
||
</pre> |
</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}}== |
=={{header|Go}}== |