质因数分解

clear input "请输入一个正整数=" to m store m to n,n1 x=2 s=1 y="" do while s<n1 if mod(n,x)=0 n=n/x s=sx y=y+transform(x)+"" else x=x+1 endif enddo messagebox(transform(s)+"="+left(y,len(y)-1))
算法 | 2017-07-27 16:22 | 156次阅读 | 0评
浏览160982次