| 科目名稱:資訊系統 與網路導論 | 開課系所:資訊工程 學系 | 任課教師 | 
      吳坤熹 | 
    ||
| 系所別: | 
      年級: | 
      學號: | 
      姓名: | 
      考試日期 | 
      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