Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tuỳ ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố. Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73, 7 cũng là các số nguyên tố. Viết chương trình nhập dữ liệu vào là một số nguyên N(10<N≤105) và đưa ra kết quả các số siêu nguyên tố nhỏ hơn N. Ví dụ: khi chạy chương trình: Nhap so N: 30 In ra màn hình: 23 29

program sieu_nguyen_to;

uses crt;

var n,i:integer;

{---Chuong trinh-nguyen-to---}

function ktnt(k:integer):boolean;

var r:integer;

begin

       ktnt:=false;

       if k<2 then exit;

       for r:=2 to trunc(sqrt(k)) do

              if k mod r=0 then exit;

       exit(true);

end;

{---Chuong-trinh-sieu-nguyen-to---}

function ktsnt(x:integer):boolean;

begin

       ktsnt:=false;

       while x>0 do

              begin

                     if ktnt(x)=false then exit;

                     x:=x div 10;

              end;

       exit(true);

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap gia tri n: ');  readln(n);

       for i:=1 to n do if ktsnt(i) then write(i,' ');

       readln;

end.