free pascal 改程序Prime Palindromes回文质数译 by tim green因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 号是回文质数.写一个程序来找出范围[a,b](5

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/04 00:48:08
free pascal 改程序Prime Palindromes回文质数译 by tim green因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 号是回文质数.写一个程序来找出范围[a,b](5
xTN@~=:UʁI ;$udo JдU@UBHԨ wmޢcoL mzfӕlUt'H4~w 6YhA7 2v8]1p3o0{W jޠ'Syc*;?[wC pv8G)Ul׼v}'+y7%,[t^zQW%e.m3o3k&e"qדֺg*SF{&8T [`GB@7ЉR4=q6#BѪovA;>f(9UiW%┪ʪF(El4òLyYYw7ρY;muxd?mh -J!j9ΗNŽ|e5-,ZĴJz2-*1WΦ4Դ<)O Y$Kby (YRxbn:x>0l?cJ1fSPfZdدSX)#j1[aU7TN LGBQ˓ )|-&bM`lM0&O3o^E/\X`},Z0p/]0p]5ݸ_3NEl

free pascal 改程序Prime Palindromes回文质数译 by tim green因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 号是回文质数.写一个程序来找出范围[a,b](5
free pascal 改程序
Prime Palindromes
回文质数
译 by tim green
因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 号是回文质数.
写一个程序来找出范围[a,b](5

free pascal 改程序Prime Palindromes回文质数译 by tim green因为151即是一个质数又是一个回文数(从左到右和从右到左是看一样的),所以 151 号是回文质数.写一个程序来找出范围[a,b](5
实在看不懂
判断质数的地方应该是对的,可是判断回文的地方太复杂了
最好用两个函数来做:
function zhishu(x:integer):boolean;
太麻烦了,略过~~~~~
function huiwen(x:integer):boolean;
var s:string;
i,j:integer;
begin
s:=str(x);
i:=0;
j:=length(s)+1;
huiwen:=true;
repeat
inc(i);
dec(j);
if s[i]s[j] then begin
huiwen:=false;
break;
end;
until i>=j;
end;
var a,b,i:longint;
begin
while not eof do
begin
readln(a,b);
for i:=a to b do
begin
if zhishu(i) and huiwen(i) then writeln(i);
end;
end;
end.
好久没碰这个了,可能有点语法错误,自个儿看着改吧