Lập trình tìm tất cả các ước của một số nguyên cho trước
2 câu trả lời
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.
uses crt;
var n,i:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
write('Cac uoc cua so ',n,' la:');
for i:=1 to n do
if n mod i =0 then write(i,' ');
readln
END.
Chúc bạn học tốt!
