首页 > 试题广场 >

PROGRAM CHU7_2； VAR I，J，F：IN

[填空题] 
PROGRAM CHU7_2；
  VAR I，J，F：INTEGER；
          A：ARRAY[1..8]OF INTEGER；
  BEGIN
    FOR I:=1 TO 8 DO
      BEGIN
        F:=I MOD 2；
        IF F=0 THEN A[I]:=0
               ELSE A[I]:=1；
        FOR J:=1 TO I DO
          IF F=0 THEN A[I]:=A[I]+J
                 ELSE A[I]:=A[I]*J
      END；
    FOR I:=1 TO 8 DO
      WRITE(A[I]：5)；
END.

输出1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

OI常识 普及
上传者：牛客309901号
难度：
0条回答 456浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号