Strange plus numbers: Difference between revisions
Content added Content deleted
(Strange plus numbers en FreeBASIC) |
|||
Line 532: | Line 532: | ||
474 476 492 494 498 |
474 476 492 494 498 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
{{trans|AWK}} |
|||
<lang freebasic> |
|||
Function isPrime(valor As Integer) As Boolean |
|||
If valor <= 1 Then Return False |
|||
For i As Integer = 2 To Int(Sqr(valor)) |
|||
If valor Mod i = 0 Then Return False |
|||
Next i |
|||
Return True |
|||
End Function |
|||
Dim As Integer k = 0 |
|||
Print !"Los n£meros m s extra¤os son:\n" |
|||
For m As Integer = 100 To 500 |
|||
Dim As Integer num1, num2, num3 |
|||
num1 = Val(Mid(Str(m), 1, 1)) |
|||
num2 = Val(Mid(Str(m), 2, 1)) |
|||
num3 = Val(Mid(Str(m), 3, 1)) |
|||
If isPrime(num1 + num2) And isPrime(num2 + num3) Then |
|||
Print Using "####"; m; |
|||
k += 1 |
|||
If k Mod 10 = 0 Then Print |
|||
End If |
|||
Next m |
|||
Print !"\n\n"; k; " n£meros m s extra¤os encontrados." |
|||
Sleep |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Los números más extraños son: |
|||
111 112 114 116 120 121 123 125 129 141 |
|||
143 147 149 161 165 167 202 203 205 207 |
|||
211 212 214 216 230 232 234 238 250 252 |
|||
256 258 292 294 298 302 303 305 307 320 |
|||
321 323 325 329 341 343 347 349 383 385 |
|||
389 411 412 414 416 430 432 434 438 470 |
|||
474 476 492 494 498 |
|||
65 números más extraños encontrados. |
|||
</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |