19 lines
388 B
Plaintext
19 lines
388 B
Plaintext
OpenConsole()
|
|
Define.i base, c1, c2, k
|
|
|
|
base = 10
|
|
c1 = 0
|
|
c2 = 0
|
|
For k = 1 To Pow(base, 2) - 1
|
|
c1 + 1
|
|
If k % (base - 1) = (k * k) % (base - 1)
|
|
c2 + 1
|
|
Print(Str(k) + " ")
|
|
EndIf
|
|
Next k
|
|
|
|
PrintN(#CRLF$ + "Trying " + Str(c2) + " numbers instead of " + Str(c1) + " numbers saves " + Str(100 - (100 * c2 / c1)) + "%")
|
|
|
|
PrintN(#CRLF$ + "Press ENTER to exit"): Input()
|
|
CloseConsole()
|