1樓：嘯嘯_飛
program zhihuiwen;
var s:string;a:array[1..4000]of longint;i,j,k,n,r,l:longint;b:boolean;
begin
for i:=2 to 10000 do
begin
for j:=2 to trunc(sqrt(i)) dobegin
b:=i mod j=0;
if b then break;
end;
if not b then begin inc(k);a[k]:=i end
end;
for i:=1 to k do
begin
r:=0;
str(a[i],s);
l:=length(s);
for n:=1 to l div 2 dobegin
b:=s[n]=s[l+1-n];
r:=r+ord(b)
end;
if r=length(s) div 2 then writeln(a[i])
endend.
程式是這樣，不過貌似沒有任何一個四位數是迴文質數ps：1001=7*11*13
20以內不是偶數的合數有既是奇數又是質數的,有
20以內 du偶數 0 zhi2 4 6 dao8 10 12 內14 16 容18 20 奇數 1 3 5 7 9 11 13 15 17 19 質數 2 3 5 7 11 13 17 19 合數 4 6 8 9 10 12 14 15 16 18 20 偶質數 2 奇質數 3 5 7 11 13...
100以內的質數有哪些，100以內的質數有哪些啊？
100以內質數記憶法 100以內的質數共有25個，這些質數我們經常用到，可以用下面的兩種辦法記住它們。一 規律記憶法 首先記住2和3，而2和3兩個質數的乘積為6。100以內的質數，一般都在6的倍數前 後的位置上。如5 7 11 13 19 23 29 31 37 41 43 只有25 35 49 5...
請問100以內的質數有哪些，100以內的質數有哪些啊？
質數即為只能被1和本身整除外的求，1到100有 2，3，5，7，11，13，17，19，23，29，31，37，41，43，47，53，59，61，67，71，73，79，83，87，89，91，97望採納 100以內的質數有2，3，5，7，11，13，17，19，23，29，31，37，41，43...