老师们，我做题，求1~N的素数 N<=1000000，总是超时，要求2秒内完成， 我的程式是以下：
var i,n,x:longint;
begin
    readln(n);
    for i:=2 to n do
    begin
        x:=2;
        while (x<=trunc(sqrt(i)))and(i mod x<>0)do
            inc(x);
        if x>trunc(sqrt(i)) then write(i,' ');
    end;
end.
请教教我应用什么算法？

你自己不是实现了吗？还问什么算法？

有谁知道破解钓鱼网站后台的请举手联系：QQ-850439731。
酬金QQ谈。

pascal 编程不懂

你這樣看來是時間問題, 其實可以換個方法, 用排除的方法, 先假設所有的數字也是素数, 然後從2開始, 發下如果它是素数, 就把其倍數改成不是素数, 看見不是素数是跳過不做, 這樣快很多可以拿出整個表, 應該能達標的

这要用筛法才行

要用到数组