10001th prime: Difference between revisions

</pre>

=={{header|XPL0}}==

<lang XPL0>func IsPrime(N); \Return 'true' if odd N > 2 is prime

int N, I;

[for I:= 3 to sqrt(N) do

[if rem(N/I) = 0 then return false;

I:= I+1;

];

return true;

];

int C, N;

[C:= 1; \count 2 as first prime

N:= 3;

loop [if IsPrime(N) then

[C:= C+1;

if C = 10001 then quit;

];

N:= N+2;

];

IntOut(0, N);

]</lang>

{{out}}

<pre>

104743