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](/uploads/image/z/3799940-68-0.jpg?t=free+pascal+%E6%94%B9%E7%A8%8B%E5%BA%8FPrime+Palindromes%E5%9B%9E%E6%96%87%E8%B4%A8%E6%95%B0%E8%AF%91+by+tim+green%E5%9B%A0%E4%B8%BA151%E5%8D%B3%E6%98%AF%E4%B8%80%E4%B8%AA%E8%B4%A8%E6%95%B0%E5%8F%88%E6%98%AF%E4%B8%80%E4%B8%AA%E5%9B%9E%E6%96%87%E6%95%B0%28%E4%BB%8E%E5%B7%A6%E5%88%B0%E5%8F%B3%E5%92%8C%E4%BB%8E%E5%8F%B3%E5%88%B0%E5%B7%A6%E6%98%AF%E7%9C%8B%E4%B8%80%E6%A0%B7%E7%9A%84%29%2C%E6%89%80%E4%BB%A5+151+%E5%8F%B7%E6%98%AF%E5%9B%9E%E6%96%87%E8%B4%A8%E6%95%B0.%E5%86%99%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%E6%9D%A5%E6%89%BE%E5%87%BA%E8%8C%83%E5%9B%B4%5Ba%2Cb%5D%285)
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.
好久没碰这个了,可能有点语法错误,自个儿看着改吧