zc=function(N,n) {s<- 0 for(k in 1:N) {x<- sample(1:9,n,replace=T) t<- 1 for(i in 1:n){t<- t*x[i]} if(t/10-floor(t/10)==0){s=s+1} } s/N}zc(1000,6)# 这个代码是干嘛用的?