var
i,j,k,n:longint;
begin
readln(n);
write(n,'=');
i:=1;
repeat
inc(i);k:=0;
while n mod i=0 do
begin
n:=n div i;
inc(k);
end;
if (k>0)and(i<>2) then write('*');
if k>0 then write(i);
for j:=2 to k do write('*',i);
until n=1;
end.
1s 穷举法，也不会超过吧！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024