Program BTH; uses crt; var n,i:longint; Begin clrscr; write('Nhap n: ');readln(n); writeln('U cua ',n,' la: '); for i:=1 to n do If n mod i=0 then write(i,' '); readln; end.
Program BTT; Uses crt; Var n,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); Write('Cac uoc cua n: '); For i:=1 to n do If n mod i = 0 then Write(i,' '); Readln End.
