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;
Write (‘nhap n=’); readln(n);
S:=0;
For i:=2 to n do
Begin
kt:=false;
for j:=2 to i-1 do
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ừ 2 đến n) có phải là số nguyên tố hay không)
nguon VI OLET
