|
??? |
|
VBSCRIPT
k=0 for a=1 to 9-2 for b=a+1 to 9-1 for c=b+1 to 9 if (a+b+c) mod 3=0 then for d=1 to 9-2 if a<>d and b<>d and c<>d then for e=d+1 to 9-1 if a<>e and b<>e and c<>e then for f=e+1 to 9 k=k-(a<>f and b<>f and c<>f and (d+e+f) mod 3=0) next end if next end if next end if next next next msgbox k |
|
10月29日（木） 8:29:57
43852 |