输入一个正整数n,将n分解成质因数幂的乘积形式.例如：36=22*32 用pascal解答

program zk;var i,j,a,b,c,k,n:longint;begin readln(n); i:=1; repeat if i1 then write('*'); inc(i); k:=0; while n mod i=0 do begin inc(k); n:=n div i; end; write(i...