质因数分解

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=s*x y=y+transform(x)+"*" else x=x+1 endif enddo messagebox(transform(s)+"="+left(y,len(y)-1))
算法 | 2017-07-27 16:22 | 阅读 554 次 | 评论 0 条
浏览232283次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...