Question

một số được gọi là siêu nguyên tố khi nó bớt đi một chữ số sau cùng mà nó vẫn là số nguyên tố. nếu bớt một lần thì gọi là siêu nguyên tố cấp 1, nếu bớt hai lần thì gọi là siêu nguyên tố cấp độ 2, nếu bớt ba lần thì gọi là siêu nguyên tố cấp độ 3,..

hãy viết chương trình tìm các siêu nguyên tố cấp độ 2 của n số tự nhiên (với n<=10000) và in ra file xuat.txt

help me! giúp mk vs!

Answer 1

function NT(n: integer): boolean;
var i: integer;
begin
NT:=true;
for i:=2 to n-1 do
if n mod i = 0 then NT:=false;
end;
var i: integer;
begin
write('Cac so sieu nguyen to cap do 2: ');
for i:=100 to 10000 do
if (NT(i) and NT(i div 10) and NT(i div 100)) then write(i:6);
readln
end.