zh.bak

彩票排列

set talk off 
clear 

x=0

m=17
n=6


FOR k1=1 TO 12
    FOR k2=1 TO 13
    	FOR k3=1 TO 14
    		FOR k4=1 TO 15
    			FOR k5=1 TO 16
    				FOR k6=1 TO 17
 					  IF  k1<k2 .and. k2<k3.and. k3<k4 .and.k4<k5 .and. k5<k6 
    					 *?k1,k2,k3,k4,k5,k6
    					 x=x+1
    					ENDIF
    				endfor
    			ENDFOR
    		ENDFOR    			
    	ENDFOR
    ENDFOR
ENDFOR


?x















return 

function NN 
para pn 
SS=1 
for k=1 to pn 
ss=ss*k 
endf 
return ss