Code:
(*Phan tich 1 so tu nhien thanh tich cac thua so nguyen to*)
PhanTich[n_] := Module[{i, temp, kq},
temp = n;
kq = "= 1";
While[temp ≠ 1,
i = 2;
While[Mod[temp, i] ≠ 0,
i++;
];
temp = temp/i;
kq = kq <> "." <> ToString[i];
];
Return[kq];
];
Clear[n];
n = Input["Nhap gia tri cua n"];
Print["n = ", n, PhanTich[n]];