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?

1 câu trả lời

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.

Câu hỏi trong lớp Xem thêm