Question

Mình đang cần bài này gấp

viết chương trình con tìm các số siêu nguyên tố từ 10 đến n , n nguyên dương nhập từ bàn phím

Answer 1

var a:array[1..100] of integer;
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
a[i]:=1;
for i:=2 to n do
if a[i]=1 then
for j:=2 to n div i do a[i*j]:=0;
for i:=10 to n do
if a[i]=1 then write(i,' ');
readln;
end.

chạy thử nha