Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Kiều Vũ Linh
5 tháng 5 2023 lúc 8:33

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.


Các câu hỏi tương tự
Phan Thu
Xem chi tiết
trần hoàng
Xem chi tiết
Hải Hà
Xem chi tiết
Tram
Xem chi tiết
Hải Hà
Xem chi tiết
Ngọc hà
Xem chi tiết
Nhat thanh Tran
Xem chi tiết
Hải Hà
Xem chi tiết
Yeu DUong nhat
Xem chi tiết