问题描述:
用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
Program dw;
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
else
begin
if t0 then
begin
write(i,'(',t,')','*');
end;
end;
End.
Program dw;
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
else
begin
if t0 then
begin
write(i,'(',t,')','*');
end;
end;
End.
问题解答:
我来补答展开全文阅读