Question

Mọi người giúp em vs ạ 

Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.

Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.

Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.

Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.

Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.

Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.

Answer 1

uses crt; var a,b:array[1..100000]of integer;     i,n,kt,j,dem,x,y,kt1:integer;     st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do   begin      write('A[',i,']='); readln(a[i]);   end; dem:=0; for i:=1 to n do   if a[i]>1 then      begin         kt:=0;         for j:=2 to a[i]-1 do           if a[i] mod j=0 then              begin                 kt:=1;                 break;              end;         if kt=0 then            begin               inc(dem);               b[dem]:=a[i];            end;      end; for i:=1 to dem do   begin      str(a[i],st);      st1:=''      for j:=length(st) downto 1 do        st1:=st1+st[j];      val(st1,x,y);      kt1:=0;      for j:=2 to x-1 do        if x mod j=0 then           begin              kt1:=1;              break;           end;      if kt1=0 then write(a[i]:4);   end; readln; end.