zoukankan      html  css  js  c++  java
  • 回文质数

    题意

    找出范围[a,b](5 <= a < b <= 100,000,000)( 一亿)间的所有回文质数;


    分析

    找出所有的回文数再判断它们是不是质数(素数).


    var
    a,b,l:longint;


    function work(w:longint):longint;
    var
    t,s:longint;
    begin
        t:=w;
        s:=0;
        while t<>0 do
        begin
            inc(s);
            t:=t div 10;
        end;
        work:=s;
    end;


    function ss(s:string):longint;
    var
    sz,i:longint;
    begin
        if (length(s)=2)and(s<>'11') then exit(0);
        val(s,sz);
        if (sz<a)or(sz>b) then exit(0);
        for i:=2 to trunc(sqrt(sz)) do
        if sz mod i=0 then
        begin
            exit(0);
            break;
        end;
        ss:=sz;
    end;


    procedure hw(k:longint);
    var
    w1,w2,i,j,bz:longint;
    s1,s2:string;
    begin
        if k>l then exit;
        if k mod 2=0 then
        begin
            w1:=1;
            w2:=9;
            for i:=1 to k div 2-1 do
            begin
                w1:=w1*10;
                w2:=w2*10+9;
            end;
            for i:=w1 to w2 do
            begin
                str(i,s1);
                s2:=s1;
                for j:=length(s1) downto 1 do
                s2:=s2+s1[j];
                bz:=ss(s2);
                if bz<>0 then writeln(bz);
            end;
        end else
        begin
            w1:=1;
            w2:=9;
            for i:=1 to (k+1) div 2-1 do
            begin
                w1:=w1*10;
                w2:=w2*10+9;
            end;
            for i:=w1 to w2 do
            begin
                str(i,s1);
                s2:=s1;
                for j:=length(s1)-1 downto 1 do
                s2:=s2+s1[j];
                bz:=ss(s2);
                if bz<>0 then writeln(bz);
            end;
        end;
        hw(k+1);
    end;




    begin
        read(a,b);
        l:=work(b);
        hw(1);
    end.

  • 相关阅读:
    DWVA系列-2-csrf Medium等级 绕过refer的csrf 有点小曲折
    DWVA系列-2-csrf low等级
    DWVA系列-1-brute Impossible等级 预防SQL注入 一次性token+预编译
    DWVA系列-1-brute medium等级
    DWVA系列-1-brute low等级
    获取SD卡剩余容器
    MD5Encoder
    本地缓存
    内存缓存
    网络缓存
  • 原文地址:https://www.cnblogs.com/YYC-0304/p/9500195.html
Copyright © 2011-2022 走看看