1.50个能被37整除的数
2.100个连续的偶数

1.
   i=0
   h=0
 do while i<=50
  h=h+1
  if mod(h,37)=0
    i=i+1
  ??h
  endif
 enddo
2.
   clea
  i=0
  h=0
 do while i<=100
  h=h+1
  if mod(h,2)=0
    i=i+1
  ??h
  endif
 enddo

2.
clea 
  i=0 
  h=0 
 do while i<=100 
  h=h+1 
  if mod(h,2)=0 
    i=i+1 
  ??h 
  endif 
*下面一步是以防所给出的是不连续的数，即保证求出偶数的是连续
  do case 
   case mod(h,2)=0 and mod((h-2),2)<>0   
  clea
  loop
  endcase
 enddo