ABAP算術問題：報告された著作権侵害の問題の数。

タイトル：そこに、それぞれ、30海賊上記の海賊船を持って突然1-30海賊船氷山の海賊を打つには、ボード上の一人だけを残して、船長は、サイクルをカウントするために7,7人の倍数の数を皆を命じ、海に飛び込みます。

 

分析：何も良い分析。

海賊の数を入力し、死亡数、出力海賊死オーダーを入力してください。

SELECTION-SCREEN  BEGIN  OF  BLOCKのB0。
パラメータ：p_numberの    TYPE I OBLIGATORY 。
パラメータ：p_keyval    TYPE私は義務。
SELECTION-SCREENの END  OF  ブロックB0。
* 
* * 
TYPES：BEGIN  OF 人、
         インデックスTYPE I、
         numbrのTYPE I、
        END  OF 人。
DATA：t_person のTYPE  TABLE  OF人。

データ LAST_NUMBERのTYPE I。

t_person =値＃（FOR I = 1まで、私> p_number（インデックス= I））。

DO 。
  IFライン（t_person）< 2 .EXIT.ENDIF。

  LOOP  AT割り当てるt_person FIELD -symbolを（<s_person> ）。
    <s_person> -numbr = COND位（LAST_NUMBER = p_keyval THEN  1つの ELSEの LAST_NUMBER + 1 ）。
    LAST_NUMBER = <s_person> - numbr。
    IF <s_person> -numbr = p_keyval。
      書きます：/ ' インデックス'、<s_person> -index、「死にました！" 。
      DELETE t_personを。
    ENDIF 。
  ENDLOOP 。
ENDDO 。

READ  TABLEを <s_person> INDEX割り当てるt_person 1 。
WRITE：/ ' インデックス'、<s_person> -index、' 生きています'。