Hướng dẫn:
- Cho i chạy từ 2 đến n.
- Xét i. Nếu nó là số nguyên tố thì in nó ra.


b. Mã chương trình:
Program Nguyen_to_1;
uses crt;
var n, i, j: integer;
 ok: boolean;
begin
 clrscr;
 write('Nhap n: '); readln(n);
 for i := 2 to n do
 begin
 ok:=true;
 for j:= 2 to i - 1 do if i mod j = 0 then
 ok :=false;
 if ok then write(i,';')
 end;
 readln
end

chúc bn hc tốt #nguyễn thanh bảo kha

Uses crt;

var i,dem,j,n:Integer;

Begin

write('Nhap so nguyen n');ReadLn(n);if n>0 ThenbeginWriteLn('Cac so nguyen to tu 2 den ',n,' la:');

for j:=2 to n Do

begin

dem:=0;

for i:= 1 to j do if j mod i=0 then dem:=dem+1;

if dem=2 then write(j,' ');

end;

end;

Readln

End.