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

OK

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

NT
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.

Bình luận (0)
 Khách vãng lai đã xóa
NS
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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
PD
Xem chi tiết
H24
Xem chi tiết
AT
Xem chi tiết
H24
Xem chi tiết
HQ
Xem chi tiết
NT
Xem chi tiết
NH
Xem chi tiết
VD
Xem chi tiết
QN
Xem chi tiết