Program BT; Var n,k,i,j,dem,d :longint; Begin repeat Write ('Nhap N : ');Readln(n); until n > 0 ; repeat Write ('Nhap K : ');Readln(k); until k > 0 ; dem :=0; d := 0; For i := 1 to n do Begin For j := 1 to i do If i mod j = 0 then d := d + 1; If d = k then dem := dem + 1; d := 0; end; Write ('Co ',dem,' so co ',k,' uoc so nguyen duong!'); end.
