Nhập số n vào từ bàn phím in ra tất cả các số nguyên tố nhỏ hơn hoặc bằng n, tính tổng các số nguyên tố đó Yêu cầu dùng vòng lặp FOR Program Ues crt; Var s,I,j,n integer; Kt boolean; Begin Clrscr; Wri[.]
Nhập số n vào từ bàn phím in tất số nguyên tố nhỏ n, tính tổng số ngun tố u cầu dùng vòng lặp FOR Program Ues crt; Var s,I,j,n:integer; Kt:boolean; Begin Clrscr; Write (‘nhap n=’); readln(n); S:=0; For i:=2 to n Begin kt:=false; for j:=2 to i-1 if I mod j =0 then kt:=true; if nott kt then Begin s:=s+I; write (i:5); end; End; writeln; write (‘ tong cac so nguyen to la:’,s); Readln; End (Biến KT dùng để xác định số i (chạy từ đến n) có phải số nguyên tố hay không)