科目名稱:資訊系統 與網路導論 | 開課系所:資訊工程 學系 | 任課教師 |
吳坤熹 |
||
系所別: |
年級: |
學號: |
姓名: |
考試日期 |
2010.10.1 |
(考試時間: 10:30-10:45)
N=10
DIM A(N)
FOR I=1 to N
FOR J=I TO INT(N/I)*I STEP I
A(J) = 1 - A(J)
NEXT J
NEXT I
SUM=0
FOR I=1 to N
PRINT A(I); " ";
SUM = SUM + A(I)
NEXT I
PRINT SUM
END