Viết chương trình nhập vào 1 số nguyên n (n>0). In ra các ước của n.
Em đang cần gấp, mọi người giúp em với ạ! Em cảm ơn nhiều!
Viết chương trình nhập vào 1 số nguyên n (n>0). In ra các ước của n.
Em đang cần gấp, mọi người giúp em với ạ! Em cảm ơn nhiều!
đây bạn
program uoc_n;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
write(‘Cac uoc cua ‘,n,’ la: ‘);
for i:=1 to n do
if n mod i=0 then write(i,’ ‘);
readln
end.