UC知道纯粹素数
来源：百度知道 编辑：UC知道 时间：2024/05/16 17:55:31
【试题描述】
纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的四位的纯粹素数。
【输入描述】
无
【输出描述】
若干个纯粹素数，每行一个
pascal回答
纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的四位的纯粹素数。
【输入描述】
无
【输出描述】
若干个纯粹素数，每行一个
pascal回答
var
i,j,k,m:longint;s:string;l:integer;
function check(v:integer):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(v)) do
if v mod i =0 then exit(false);
exit(true);
end;
function check1(v:integer):boolean;
begin
while check(v) do
begin
str(v,s);
if check(v)then
if length(s)=1 then break
else begin
delete(s,1,1);
val(s,v,l);
end;
end;
if length(s)=1 then
if check(v) then exit(true);
exit(false);
end;
begin
for i:=2 to 3000 do
if check1(i) then
writeln(i);
end.
希望能帮助你！！
uioyuio
分太少……20分程序就给你
xuanshangfenzaina?