【正确答案】编程如下：
   CONT: MOV  31H,#0      ;和单元清零
         MOV  R1,#1       ;置i=1
   CLOP: MOV  A,R1        ;读i
         CLR  C           ;
         RLC  A           ;2i
         ADD  A,31H       ;累加
         MOV  31H,A       ;回存
         INC  R1          ;修改i
         DJNZ 30H,CLOP    ;判循环
         RET              ;