作业帮 > 综合 > 作业

输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/09 20:06:29
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;
我是个新手,今天布置的这个程序我编不出来,注明:要用pascal来编写.
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;
program olive;
var
i,j,m,n:integer;
begin
readln(n);
write(n,\'=\',1);
m:=n;
for i:=2 to n do
begin
while((m mod i)=0) do
begin
write(\'*\',i);
m:=m mod i;
end;
end;
end.