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
Kudo Shinichi

Viết chương trình in ra các số nguyên tố nhỏ hơn hoặc bằng n, với n là số tự nhiên nhập từ bàn phím

Nguyễn Lê Phước Thịnh
19 tháng 12 2019 lúc 22:15

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

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

writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');

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ự
Huy Nguyễn
Xem chi tiết
thanh mai
Xem chi tiết
hoangvinh
Xem chi tiết
X No mame
Xem chi tiết
Lâm Khả Doanh
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
Lan Phương
Xem chi tiết
Kim Chi
Xem chi tiết
Nguyenthanh
Xem chi tiết
NgocTuan
Xem chi tiết