25 lines
455 B
Plaintext
25 lines
455 B
Plaintext
Function isPrime(n As Uinteger) As Boolean
|
|
Dim As Uinteger i
|
|
For i = 2 To Sqr(n)
|
|
If n Mod i = 0 Then Return False
|
|
Next i
|
|
Return True
|
|
End Function
|
|
|
|
Dim As Uinteger n, i, j, count
|
|
Dim Shared As Ulongint primes(1e8)
|
|
n = 1
|
|
For i = 0 To 9
|
|
count = 0
|
|
For j = 2 To n
|
|
If isPrime(j) Then
|
|
count += 1
|
|
primes(count) = j
|
|
End If
|
|
Next j
|
|
Print "10^"; i; " "; count
|
|
n *= 10
|
|
Next i
|
|
|
|
Sleep
|