求助
pascal吧
全部回复
仅看楼主
level 5
破空挑战者0328 楼主
请写一段程序，能够输出第n个质数。
2015年02月23日 05点02分 1
level 5
破空挑战者0328 楼主
……
2015年02月23日 05点02分 2
level 5
破空挑战者0328 楼主
……
2015年02月23日 06点02分 3
level 9
狼妹宋天琢
program joy;
begin
writeln('第n个质数');
end.
2015年02月23日 06点02分 4
我是小灰酱
[黑线]
2015年02月23日 07点02分
狼妹宋天琢
其实应该用6楼的方法，划掉2的倍数，3的倍数，5的倍数，7的倍数...
2015年02月23日 10点02分
ILC小闸蟹
笑:-D
2015年02月23日 17点02分
level 7
先睡觉😪再说
我觉得太难，和“能够输出第n个完美数”一样
2015年02月23日 07点02分 5
风x千叶翔龙V
这还难。。
2015年02月24日 05点02分
先睡觉😪再说
回复
��xǧҶ����V
:n=50000,求吧
2015年02月24日 08点02分
风x千叶翔龙V
回复 13078978968 :他又没说数据范围[汗]
2015年02月24日 10点02分
level 9
T_K_2835
筛法求素数表
2015年02月23日 07点02分 6
T_K_2835
人不在电脑前 有空再码程序
2015年02月23日 07点02分
狼妹宋天琢
[真棒]
2015年02月23日 10点02分
level 9
猎火电脑工作室
var n,i,j,prime:longint;
t:boolean;
begin
read(n);
i:=1;
prime:=0;
repeat
inc(i);
t:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then
begin
t:=false;
break;
end;
if t then inc(prime);
until prime=n;
writeln(i);
end.
//暴力，10^6左右就TLE了
2015年02月23日 10点02分 7
1