将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：
(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。
(2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数n,重复执行第一步
。
(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。
       *在程序中如何做？

* 质因数分解
clear
store 90 to n,n1
x=2
s=1
y=""
do while s<n1
    if mod(n,x)=0
       n=n/x
       s=s*x
       y=y+transform(x)+"*"
    else
        x=x+1
    endif
enddo
?s,left(y,len(y)-1)

transform（）?
用函数function怎么做，老师说用function好做

clear
?xy(90)
function xy
parameter n
n1=n
x=2
s=1
y=""
do while s<n1
    if mod(n,x)=0
       n=n/x
       s=s*x
       y=y+transform(x)+"*"
    else
        x=x+1
    endif
enddo
return left(y,len(y)-1)
endfunc

如果是要答案，就不做解释了。

作业党

还行吧！

谢谢二楼的程序

路过学习

好代码，学习一下、