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
HELP ME!!!
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 ý
By Vivian
đây bạn
uses crt;
var
b,c,i,j,,dem,N: integer;
A: array[1..100] of integer;
begin
write(‘nhap so N:=’); readln(N);
For i:=1 to N do
begin
for j:=1 to i do
If (i mod j = 0) then dem:=dem+1;
If dem=2 then
begin
b:=b+1;
A[c+1]:=i;
end;
end;
for c:=1 to b do
begin
If A[c]>A[c+1] then write(A[c])
else A[c+1];
end;
readln
End.