Question

[quân san]

viết chương trình in ra các ước của n

Answer 1

[nguyễn an phát]

program tim_uoc;

uses crt;

var i,n:longint;

begin

clrscr;

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

for i:=1 to n do

if n mod i=0 then write(i);

readln;

end.