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