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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 05:50:12
输入一个正整数n,将n分解成质因数幂的乘积形式.例如:36=22*32用pascal解答输入一个正整数n,将n分解成质因数幂的乘积形式.例如:36=22*32用pascal解答输入一个正整数n,将n分

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

输入一个正整数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.