set talk off
clear
store  0  to x,y,s1,s2,s3
do while x<10
    x=x+1
   do case 
      case  int(x/2)=x/2
            s1=s1+x/2
      case  mod(x,3)=0
            s2=s2+x/3
      case  int(x/2)<>x/2
            s3=s3+1
   endcase
enddo
?s1,s2,s3
set talk to 
reture
答案是15,4,3           还是10,4,3