作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/26 12:30:17
用Pascal编写—输入一个正整数n,把它分解成质因子相乘的形式.例如24=2*2*2*3.(用for循环语句)
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 i1) do
begin
write(i,'*');
n:=n div i;
end;
if n div i=1 then begin writeln(n); halt; end;
end;
end.