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
