Uses crt;
Var i,n,d: integer;
Begin
Clrscr;
Write ('Nhap N: '); readln (n);
Write ('Cac uoc cua n tu 1 den n la: ');
For i:=1 to n do if n mod i=0 then
begin d:=d+1; write (i,' '); end;
Writeln;
Writeln ('Tu 1 den n co ',d,' uoc so cua n');
Readln;
End.
XIN HAY NHẤT