Question

Nhập số n nguyên dương n từ bàn phím (10 < n < 1000). Hãy tìm và đưa ra màn hình các số nguyên tố nhỏ hơn hoặc bằng n

Answer 1

uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
if (10<n) and (n<1000) then
begin
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;
end
else writeln('vui long nhap lai');
readln;
end.