Dài nhưng chương trình chạy nhanh nha, nó sẽ lợi ích hơn.
program uocso;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so: '); readln(n);
write('Cac uoc cua ',n,' la: ');
for i:=1 to n div 2 do
if n mod i=0 then write(i,' ');
{chỉ chạy tới n div 2 thôi cho nhanh vì sau n div 2 không còn số nào để n chia hết nữa trừ n}
write(n); {Vì n cung la uoc cua n}
readln
end.
Nếu thấy hay thì cho mình ctlhn nha.
