pascal问题！用while语句解.输入一个正整数n，把它分解成质因子相乘的形式例如：36=2*2*3*339=3*13

Question

pascal问题！用while语句解
. 输入一个正整数n，把它分解成质因子相乘的形式
　　例如：36=2*2*3*3　39=3*13

Answer 1

[主体思路]：
枚举 i (从2开始，直到 n )
检查每个 i 是否是 n 的因子
[程序]及[解释]：
Var //定义变量
n,i:Longint;
Begin
Readln(n);
write(n,"=");
i=1;
while i Begin
inc(i); //枚举
If n Mod i=0 Then //如果i是n的因子
Begin
n:=n Div i;
Write(i,'*');//输出 i 和 "*"
End;


If i=n Then // 这是n纪录了 剩下的最后一个因子
Begin
Writeln(n);
Exit;
End;
End;
End.