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
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
Lời giải:
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.