灵鹊做题网回文素数的个数,用pascal
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/05/03 14:25:20
回文素数的个数,用pascal
如果一个数从左边读和从右边读都是同一个数,就称为回文数.例如6886就是一个回文数,从给出的数据中统计出既是回文数又是素数的数的个数(
如果一个数从左边读和从右边读都是同一个数,就称为回文数.例如6886就是一个回文数,从给出的数据中统计出既是回文数又是素数的数的个数(
var
s,n:longint;
function prime(x:longint):boolean;
var i:longint;
begin
if x>1 then begin
i:=2;
while (i*in
then prime:=true
else prime:=false;
end
else prime:=false;
end;
function sfhw(x:longint):boolean;
var st:string;i,j,l:longint;
begin
sfhw:=true;
str(x,st);
l:=length(st);
i:=1;j:=l;
while (ij
then sfhw:=true
else sfhw:=false;
end;
begin
s:=0;
while not eof do
begin
read(n);
if (prime(n))and(sfhw(n))
then
begin
inc(s);
end;
end;
writeln(s);
end.
绝对正解
再问： 还错的： pengbo 答案错误60%
再答： ？？？我提交的是对的，是不是你把楼下的提交结果答案错误60%
s,n:longint;
function prime(x:longint):boolean;
var i:longint;
begin
if x>1 then begin
i:=2;
while (i*in
then prime:=true
else prime:=false;
end
else prime:=false;
end;
function sfhw(x:longint):boolean;
var st:string;i,j,l:longint;
begin
sfhw:=true;
str(x,st);
l:=length(st);
i:=1;j:=l;
while (ij
then sfhw:=true
else sfhw:=false;
end;
begin
s:=0;
while not eof do
begin
read(n);
if (prime(n))and(sfhw(n))
then
begin
inc(s);
end;
end;
writeln(s);
end.
绝对正解
再问： 还错的： pengbo 答案错误60%
再答： ？？？我提交的是对的，是不是你把楼下的提交结果答案错误60%