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

来源:学生作业学帮网 编辑:学帮网 时间:2024/04/26 08:37:37

输入一个正整数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,'^',k);
until n=1;
readln;
end.