4.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。
我试了试~~但是为什么会错呢?
我的程序如下
program ex414;
var a,b:integer;
function d(m:integer):integer;
var g,z:integer;
begin
z:=m div 10;
g:=m mod 10;
d:=g*10+z;
end;
functions(p:integer):integer;
var i:integer; o:boolean;
begin
o:=false;
for i:=2 to p-1 do
if p mod i =0 then o:=true;
if o then s:=10000 else s:=p;
end;
begin
for a:=10 to 99 do
begin
if s(a) =a then b:=d(a);
if b=1 or 2 then write(a,' ':3) else if s(b)=b thenwrite(a,' ':3);
end;
readln;
end.
求助!~~
|