纯素数(easy)

最新推荐文章于 2023-02-28 10:00:23 发布

SSL_zeng_yu

最新推荐文章于 2023-02-28 10:00:23 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 杂乱题目

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/54344041

pascal 杂乱题目专栏收录该内容

13 篇文章

订阅专栏

这是一个程序设计问题，目标是找出所有小于3000的纯素数。纯素数是指逐次去掉最高位数字后，剩余部分仍然是素数的数。程序使用了JS函数判断是否为素数，并遍历2到3000之间的数来寻找符合条件的纯素数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

纯素数(easy)

Time Limit:1000MS Memory Limit:65536K
Total Submit:141 Accepted:68

Description

纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的纯粹素数。

Input

Output

每行一个纯素数----------------注意！1不是素数

Sample Input

Sample Output

//部分输出
2
3
5
7
9
13
…

Source

ljc

程序如下：

var
  i,x:longint;
  s:string;

function js(n:longint):boolean;
var
  y:boolean;
  x:longint;
begin
  x:=2;
  y:=false;
  while(x<=trunc(sqrt(n))) and (n mod x<>0) do
    x:=x+1;
  if x>trunc(sqrt(n)) then y:=true;
   js:=y
end;

begin
  for i:=2 to 3000 do
    begin
     x:=i;
     while  js(x)  do
       begin
         str(x,s);
         if length(s)<>1
           then begin
                  delete(s,1,1);
                  val(s,x);
                end
           else begin
                  if js(x) and (x<>1) then writeln(i);
                  break
                end;
        end;
    end;
end.