BÀI TẬP 71: SỐ NGUYÊN TỐ ĐỐI XỨNG

Một số nguyên dương T được gọi là số nguyên tố đối xứng nếu thỏa mãn các yêu cầu sau:

-         T là một số nguyên tố

-         T là một số đối xứng (đọc T từ trái qua phải thu được kết quả giống như đọc T từ phải qua tái).

Ví dụ 12321 là một số đối xứng.

Yêu cầu: cho 2 số nguyên dương A và B, hãy tìm số lượng các số nguyên tố đối xứng T thỏa mãn A ≤ T ≤ B ≤ 100000

Dữ liệu: vào từ file văn bản NTDX.INP gồm một dòng chứa 2 số nguyên dương A và B cách nhau 1 dấu cách (10⁴ ≤ A < B < 10⁵)

Kết quả: ghi vào file văn bản NTDX.OUT một số nguyên là số lượng số nguyên tố tìm được.

NTDX.INP	NTDX.OUT
11111 22222	23

CODE THAM KHẢO:

    program snt_doixung;

    var n,i,d,A,B,j: longint;

    function snt(n:longint): boolean;

    var i: longint;

    begin

            snt:=true;

            if n < 2 then exit(false);

            for i:=2 to trunc(sqrt(n)) do

            if n mod i = 0 then exit(false);

    end;

    function dx(m: longint): boolean;

    var s:string; i:longint;

    begin

            str(m,s);

            dx:=true;

            for i:=1 to length(s) do

            if s[i] <> s[length(s)-i+1] then exit(false);

    end;

    begin

          assign(input,'NTDX.INP'); reset(input);

          assign(output,'NTDX.OUT'); rewrite(output);

          read(A,B); d:=0;

          for j:=A to B do

          if (snt(j)) and (dx(j)) then inc(d);

          write(d);

          close(input); close(output)

    end.