用Pascal编写—输入一个正整数n,把它分解成质因子相乘的形式。例如24=2*2*2*3。(用for循环语句)

2024-11-21 07:25:13
推荐回答(1个)
回答1:

var n,i:longint;
begin
read(n); write(n,'=');
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
while (n mod i=0)and(n div i<>1) do
begin
write(i,'*');
n:=n div i;
end;
if n div i=1 then begin writeln(n); halt; end;
end;
end.