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
100以內的質數有哪些，100以內的質數有哪些啊？
100以內的素數有 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 100以內質數記憶法 100以內的質數共有25個，這些質數我們經常用到，可以用下面的兩種辦法記住它們。一 規律記憶法 首先記住2和3，而2...
100以內的質數有哪些
100以內的質數有哪些？2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97，共計25個。規律一 看區間質數的個數 以10個數為一個區間看質數的個數，呈4,4,2,2,3,2,2,3,2,1規律。二 看每個質數的...
ABC是100以內的質數，滿足A B C的質數共有多少組
三個數都是質數 很久沒接觸質數 合數 函式什麼的了。要是有錯的話望海涵 2是最小的質數，也是唯一的一個既是偶數又是質數的數 也就是說，除了2以外，質數都是奇數，小於100的質數有如下25個 2，3，5，7，11，13，17，19，23，29，31，37，41，43，47，53，59，61，67，71...