Lập trình đơn giản

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 in ra tât cả các số nguyên tố bé hơn hoặc bằng n

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

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

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

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 write(i:4);

end;

readln;

end.

Khách vãng lai đã xóa
Nguyễn Huy Hoàng Sơn
9 tháng 2 2020 lúc 22:19

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

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

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 write(i:4);

end;

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Phan Đức Duy
Xem chi tiết
ytkc
Xem chi tiết
Anh Thế
Xem chi tiết
phamthiminhanh
Xem chi tiết
Hưng Quốc
Xem chi tiết
Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Nguyễn minh Hoàng
Xem chi tiết
Vũ Duy
Xem chi tiết
Quang Anh Nguyễn
Xem chi tiết