Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Oanh Kim

viết chương trình nhập số nguyên n<1000 và cho biết có bao nhiêu số nguyên tố từ 1 đến n?

Oanh Kim
2 tháng 1 2021 lúc 20:25

help me!!!

 

Bùi Anh Tuấn
2 tháng 1 2021 lúc 20:41

okila

Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 20:52

uses crt;

var n,i,kt,j,dem:integer;

begin

clrscr;

repeat

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

until n<1000;

dem:=0;

for i:=2 to n do 

  begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then inc(dem);

end;

writeln('So luong so nguyen to trong khoang tu 1 toi ',n,' la: ',dem);

readln;

end.


Các câu hỏi tương tự
khánh băng
Xem chi tiết
Nguyễn Đức Hòa
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Hiếu
Xem chi tiết
Nguyễn Đức Anh
Xem chi tiết
Maiiii
Xem chi tiết
Nguyenthanh
Xem chi tiết
hoangvinh
Xem chi tiết
Thư Uyên
Xem chi tiết