vt ct in ra tất cả các ước của một số n đc nhập từ bàn phím ( bằng ngôn ngữ lập trình pascal
2 câu trả lời
program tim_uoc;
uses crt;
var n,i : integer;
begin
clrscr;
write('nhap so n:'); readln(n);
for i:=1 to n do if n mod i=0 then write(i:3,',');
readln
end.
uses crt;
var n,i: longint;
begin
write('Nhap n: '); readln(n);
write('Uoc(n): ');
for i:=1 to n do
if n mod i=0 then
write(i,' ');
readln;
end.
