var
  a:array[0..10,1..1000000] of boolean;
  b,c,d,e,i,j,s,z:longint;
begin
  s:=0;
  z:=1;
  for e:=2 to 1073741823 do begin
   i:=e*2-1;
   for j:=2 to trunc(sqrt(i)) do begin
    z:=i;
    while i>1000000 do begin
     z:=i-1000000;
     s:=s+1;
    end;
    a[s,z]:=true;
    if i mod j=0 then begin a[s,z]:=false; break; end;
   end;
  end;
  while not eof do begin
   readln(b);
   d:=0;
   while b>1000000 do begin
    c:=b-1000000;
    d:=d+1;
   end;
   if b=1 then writeln('非質數')
          else if b=2 then writeln('質數')
                      else if a[d,c]=true then writeln('質數')
                                          else writeln('非質數');
   readln(b);
  end;
end.

 这是我的代码,请帮忙看看

我用費馬小定理過的，很麻煩

我想有機會貼一下文章 

我用費馬小定理過的，很麻煩

我想有機會貼一下文章