最大素数子串

最新推荐文章于 2024-06-13 10:23:50 发布

weixin_30915275

最新推荐文章于 2024-06-13 10:23:50 发布

阅读量125

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qilinart/articles/3983555.html

一个整数的整数子串是由该整数的连续若干位的数字构成。例如：6158的子串包括6，l，5，8，61，15，58，615，158，6158，其中质数子串有：5，61。你的任务是找出其中最大的质数子串，说明：0，1不是质数。
[输入格式]
键盘输人整数N(O≤N≤l OOO OOO OOOO)。
[输出格式]
屏幕输出N的最大质数子串，若所有子串都是非质数，则输出“No primes”。
[输入样例1]
319
[输出样例1]
31
[输入样例2]
6804
[输出样例2]
No primes

const

maxn=9;

p:array[0..9] of longint=(1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000);

var

n,len,m,i,k,ans:longint;

a:array[1..maxn+1] of longint;

function prime(a:longint):boolean;

var i,j:longint;

begin

if (a=0)or(a=1) then begin prime:=false; exit; end;

j:=trunc(sqrt(a));

for i:=2 to j do

if a mod i=0 then begin prime:=false; exit; end;

① ;

end;

begin

readln(n);

len:=trunc(ln(n)/ln(10))+1;

for i:=1 to len do

begin

a[i]:=n mod 10; n:=n div 10;

end;

for k:=len downto 1 do

begin

ans:=-1; m:=0;

for i:=k downto 1 do m:=m*10+a[i];

if ② then ans:=m;

for i:=k+1 to len do

begin

③ ;

if prime(m)and(m>ans) then ans:=m;

end;

if ④ then begin writeln(ans); break; end;

end;

if ans=-1 then writeln('No primes');

end.

【答案】

①prime:=true

②prime(m)and(m>ans)

③m:=m div 10+a[i]*p[k-1]

④ans<>-1

const
    maxn=9;
    p:array[0..9] of longint=(1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000);
var
    n,len,m,i,k,ans:longint;
    a:array[1..maxn+1] of longint;

function prime(a:longint):boolean;
var i,j:longint;
begin
    if (a=0)or(a=1) then begin prime:=false; exit; end;
    j:=trunc(sqrt(a));
    for i:=2 to j do
        if a mod i=0 then begin prime:=false; exit; end;
    prime:=true;
end;

begin
    readln(n);
    len:=trunc(ln(n)/ln(10))+1;
    for i:=1 to len do
    begin
        a[i]:=n mod 10; n:=n div 10;
    end;
    for k:=len downto 1 do
    begin
        ans:=-1; m:=0;
        for i:=k downto 1 do m:=m*10+a[i];
        if prime(m)and(m>ans) then ans:=m;
        for i:=k+1 to len do
        begin
            m:=m div 10+a[i]*p[k-1];
            if prime(m)and(m>ans) then ans:=m;
        end;
        if ans<>-1 then begin writeln(ans); break; end;
    end;
    if ans=-1 then writeln('No primes');
end.