谁有C 调用下函数帮我算一下第11111个质数是多少吧…急需

117763

代码如下，输入11111，即可得到前11111个素数！

代码：
program BasicMath_Prime;
const
maxn=20000;
var
pnum,n:longint;
p:array[1..maxn] of longint;
function IsPrime(x:longint):boolean;
var i:integer;
begin
for i:=1 to pnum do
if sqr(p[i])<=x then
begin
if x mod p[i]=0 then
begin
IsPrime:=false;
exit;
end;
end

else
begin
IsPrime:=true;
exit;
end;
IsPrime:=true;
end;
procedure main;
var x:longint;
begin
pnum:=0;
x:=1;
while(pnum<n) do
begin
inc(x);
if IsPrime(x) then
begin
inc(pnum);
p[pnum]:=x;
end;
end;

end;
procedure out;
var i,t:integer;
begin
for i:=1 to n do
begin

write(p[i],' ');t:=t+1;

if t mod 10=0 then writeln;

end;
end;
begi