求万以内的回文式素数根据能被11整除的回文数不可能是素数(用PASCAL语言)

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:02:14
要准确,
要用PASCAL语言,说明：①根据“能被11整除的回文数不可能是素数”，因此，二、四位数中不可能有回文式素数
②用3-N的平方根内的素数去除回文数N，如不能整除，则N必为素数。

首先2,4位没1位又不算所以只要搜索3位就可以了
begin
for i:=100 to 999 do
if (i mod 10)=(i div 100) then {判断回文数｝
begin ｛判断素数｝
j:=3;
repeat
t:=1;
if (i mod j)=0 then t:=0;
j:=j+1;
until((t=0)or(j>sqrt(i)));
if t=1 then writeln(i);
end;
end.

正在想……