Program BTT; Uses crt; Var n,d,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); d:=0; For i:=1 to n do If n mod i = 0 then inc(d); Write('So ',n,' co ',d,' uoc'); Readln End.
Uses crt; Var n,d,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); d:=0; For i:=1 to n do If n mod i = 0 then d:=d+1; Writeln('So ',n,' co ',d,' uoc'); Readln; End.
