Casting out nines: Difference between revisions
Content added Content deleted
(Added Wren) |
(Casting out nines en FreeBasic) |
||
Line 373: | Line 373: | ||
129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225, |
129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225, |
||
240, 241, 256, 257, 272, 273, 288]</pre> |
240, 241, 256, 257, 272, 273, 288]</pre> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>Const base10 = 10 |
|||
Dim As Integer c1 = 0, c2 = 0, k = 1 |
|||
For k = 1 To base10^2 |
|||
c1 += 1 |
|||
If (k Mod (base10-1) = (k*k) Mod (base10-1)) Then c2 += 1: Print k;" "; |
|||
Next k |
|||
Print |
|||
Print Using "Intentar ## numeros en lugar de ### numeros ahorra un ##.##%"; c2; c1; 100-(100*c2/c1) |
|||
Sleep</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 9 10 18 19 27 28 36 37 45 46 54 55 63 64 72 73 81 82 90 91 99 100 |
|||
Intentar 23 numeros en lugar de 100 numeros ahorra un 77.00% |
|||
</pre> |
|||
=={{header|Free Pascal}}== |
=={{header|Free Pascal}}== |