UC知道前11111个质数
来源：百度知道 编辑：UC知道 时间：2024/06/24 13:51:56
拜托了是质数就行我在做哥德巴赫猜想啊
哈～自己搜质数表呗。做歌德巴赫能没有这个？
var i,j:longint;
function dog(k:longint):boolean;
var i,j:longint;
begin
dog:=false;
for i:=2 to trunc(sqrt(k)) do
if k mod i =0 then exit;
dog:=true;
writeln(k);
end;
begin
i:=2;
j:=0;
repeat
if dog(i) then inc(j);
inc(i);
until j=11111;
end.