Question

[Lê Xuân Lộc]

Các bạn giúp mình bài này nha

Nhập vào số nguyên dương n từ bàn phím đếm xem có bao nhiêu số nguyên tố <=n đã cho in các nguyên tố ra màn hình

Answer 1

[Kiều Vũ Linh]

var i,j,n,d,sl:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

sl:=0;

for j:=1 to i do

if i mod j = 0 then

begin

d:=d+1;

if d=2 then sl:=sl+1;

end;

end;

write('Co ',sl,' so nguyen to <= ',n);

readln

end.