Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn là một số nguyên tố.
Cho số nguyên dương N ( 0 < N <=10 ), đưa ra các số siêu nguyên tố có n chữ số cùng số lượng các số đó.
Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn là một số nguyên tố.
Cho số nguyên dương N ( 0 < N <=10 ), đưa ra các số siêu nguyên tố có n chữ số cùng số lượng các số đó.
uses crt;
var a,b,i,n:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
function snt(a:longint):boolean;
begin
while nt(a) do
a:=a div 10;
if a<>0 then exit(false) else exit(true);
end;
begin
clrscr;
write(‘Nhap so n: ‘);readln(n);
a:=1;
for i:=1 to n-1 do a:=a*10;
b:=a*10-1;
for i:=a to b do
if snt(i) then writeln(i);
readln
end.