好吧问答库 > pascal 将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。

pascal 将一个正整数分解质因数。例如：输入90,打印出90=233*5。

2024年11月22日 01:20

有1个网友回答

网友（1）：

var
i,n:longint;
first:boolean;
begin
readln(n);
first:=true;
write(n,'=');
if n<=1 then write(n);
for i:=2 to trunc(sqrt(n)) do begin
if n=1 then break;//n=1表示已经分解完毕
while n mod i=0 do begin
if not first then write('*');
first:=false;
write(i);
n:=n div i;
end;
end;
if n<>1 then write(n);//如果n是质数的话，要特殊判断一下。
writeln;
end.