VisualFoxpro如何编程序计算一个数各个位数的乘积?

问题描述:

VisualFoxpro如何编程序计算一个数各个位数的乘积?

clear
input "请输入一个数:" to x
s=1
do while abs(x)>0
m=x%10
s=s*m
x=int(x/10)
enddo
"其各位数的乘积为:",s