Casting out nines: Difference between revisions
Casting out nines en FreeBasic
(Added Wren) |
(Casting out nines en FreeBasic) |
||
Line 373:
129, 144, 145, 160, 161, 176, 177, 192, 193, 208, 209, 224, 225,
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}}==
| |||