Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
GamingDudex

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

 

Nguyễn Lê Phước Thịnh
28 tháng 1 2022 lúc 22:43

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.


Các câu hỏi tương tự
chibinh nguyen
Xem chi tiết
GamingDudex
Xem chi tiết
GamingDudex
Xem chi tiết
Võ Thị Mai Sương
Xem chi tiết
Tiếng anh123456
Xem chi tiết
Nhật Minh
Xem chi tiết
nguyentienlam
Xem chi tiết
Gà Công Nghệ
Xem chi tiết
Đào Khánh Thy
Xem chi tiết