vt ct in ra tất cả cac ước của n bằng pascal

2 câu trả lời

program uoc;

uses crt;

var n,i: integer;

begin

clrscr;

write('nhap n:'); readln(n);

for i:=1 to n do if n mod i =0 then write(i:3,',');

readln

end.

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.