cho ví dụ cho dễ hiểu
nhập n=2 thì cho 2 số nguyên tố đầu tiên là 2,3 số siêu nguyên tố cũng vậy
1/
program thinh;
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
{-------------------------------------------------------------}
procedure nhap(var b:integer);
begin
write('nhap n='); readln(b);
end;
{-------------------------------------------------------------}
procedure nguyento;
begin
if n=1 then a[1]:=2
else begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
dem:=dem+1;
a[dem]:=x;
end;
until dem=n;
end;
writeln(n,' so nguyen to dau tien la: ');
for i:=1 to n do
write(a[i],' ');
end;
{----------------------------------------------}
begin
clrscr;
nhap(n);
nguyento;
readln;
end.
1/
program thinh;
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
{-------------------------------------------------------------}
procedure nhap(var b:integer);
begin
write('nhap n='); readln(b);
end;
{-------------------------------------------------------------}
procedure nguyento;
begin
if n=1 then a[1]:=2
else begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
dem:=dem+1;
a[dem]:=x;
end;
until dem=n;
end;
writeln(n,' so nguyen to dau tien la: ');
for i:=1 to n do
write(a[i],' ');
end;
{----------------------------------------------}
begin
clrscr;
nhap(n);
nguyento;
readln;
end.