Cho một dãy số nguyên N hãy tìm xem trong dãy đó có bao nhiêu số nguyên tố và sắp xếp những số nguyên tố đó theo thứ tự tăng dần( hoặc giảm dần) Lưu ý: nếu giảm dần thì dùng lệnh downto
Cho một dãy số nguyên N hãy tìm xem trong dãy đó có bao nhiêu số nguyên tố và sắp xếp những số nguyên tố đó theo thứ tự tăng dần( hoặc giảm dần) Lưu ý: nếu giảm dần thì dùng lệnh downto
Tăng dần: hình 1
Giảm dần: hình 2
var n,i,j,s:integer;
begin
write(‘Nhap n: ‘);readln(n);
for i:=2 to n do begin
for j:=2 to i-1 do if i mod j=0 then s:=s+1;
if s=0 then writeln(i);
s:=0;
end;
readln
end.