纯素数(easy)

来源：互联网发布：逆战原子0.19秒宏数据编辑：程序博客网时间：2024/06/05 19:03

纯素数(easy)

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

Description

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

Input

Output

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

Sample Input

Sample Output

//部分输出2357913…

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:=yend;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.

0 0