查人人中国名人网荷载组合参数:会PASCAL的进
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 17:29:32
求任一数n(n<1000000),写成几个素数相乘的形式.
如: 输入36
输出36=1*2*2*3*3
如: 输入36
输出36=1*2*2*3*3
初学示例程序－－求解质因子
{
Program date : 2006-2-17
http://www.cnpascal.CN
}
program a(input,output);
const n=200;
var i,p,q,j:integer;
begin
for i:=2 to n do
begin
q:=1;
repeat
q:=q+1;
p:=i mod q;
until p=0;
j:=i div q;
write (i,'=',q);
q:=1;
while j>q do begin
q:=1;
repeat
q:=q+1;
p:=j mod q;
until p=0;
j:=j div q;
write ('*',q);
if j=q then write ('*',q);
end;
writeln;
end;
readln
end.