Đăng nhập để hỏi chi tiết
5
2
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var c:array[0..10000] of boolean;
i,n: longint;
procedure sieve(n: longint);
var i,j: longint;
begin
for i:=2 to trunc(sqrt(n)) do
if not c[i] then
for j:=i to n div i do
c[i*j]:=true;
end;
begin
read(n);
sieve(n);
for i:=n downto 1 do
if (n mod i = 0) or not(c[i]) then
write(i,' ');
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin