11 lines
286 B
Text
11 lines
286 B
Text
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
|