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