写程序PASCAL

来源：百度知道 编辑：UC知道 时间：2024/05/22 15:37:13
6、求某个自然数的质因子，输出如下形式：
100=2*2*5*5

Program exp6;
var i,j,n:integer;
begin
readln(n);
write(n,'=');
j:=0;
i:=2;
while i<=n do begin
while n mod i=0 do begin j:=j+1; if j>1 then write('*'); write(i); n:=n div i; end;
i:=i+1;
end;
end.

运行结果：
100＝2*2*5*5