Question

xét dãy số A các thừa số nguyên tố 2,2,3,5,7,11,13,17,19,...và dãy B gồm các số thu được từ dãy A bằng cách ghép 2 số liên tiếp trong dãy A. Vd:23,57,1113,1719,...Trong dãy B có những phần tử là số nguyên tố, chẳng hạn:25,3127,8389,157163,.....Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.Yêu cầu:cho trước 1 số nguyên tố k(k<=500).Hãy tìm số nguyên tố ghép thứ k

(pascal) (làm ơn giúp minh cần nó trước ngày 29/1) :((( (làm bằng array nếu có thể)

CẢM ƠN

 

Answer 1

uses crt;
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
    st1,st2,st:string;
    y:integer;
begin
clrscr;
write('nhap so k='); readln(k);
if k>1 then begin
               d:=1;
               n:=3;
               repeat
                   repeat
                       kt:=0;
                       n:=n+2;
                       for i:=2 to trunc(sqrt(n)) do
                         if n mod i=0 then kt:=1;
                       if kt=0 then str(n,st1);
                   until kt=0;
                   {----------------------------------------}
                   repeat
                       kt:=0;
                       n:=n+2;
                       for j:=2 to trunc(sqrt(n)) do
                         if n mod j=0 then kt:=1;
                       if kt=0 then str(n,st2);
                   until kt=0;
                   {----------------------------------------}
                   kt:=0;
                   st:=st1+st2;
                   val(st,x,y);
                   for i:=2 to trunc(sqrt(x)) do
                     if x mod i=0 then kt:=1;
                   if kt=0 then d:=d+1;
               until d=k;
            end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
readln;
end.