我愛偶數
內容 ：
文文很喜歡偶數，他甚至有收集偶數的習慣。你給他一個範圍的連續整數，他就會把其中的偶數留下來收藏。如今他又拿到了一個範圍的整數，請問他這次收藏了幾個偶數？對文文來說，0 也算是一個偶數哦！
輸入說明 ：
輸入只有一行，其中含有兩個由空白隔開的整數 a, b (0 ≤ a ≤ b ≤ 2147483647)。
輸出說明 ：
輸出一個整數，代表 a 與 b 之間 (含 a 與 b) 一共有多少個偶數。
範例輸入 ：
若題目沒有特別說明，則應該以多測資的方式讀取，若不知如何讀取請參考 a001 的範例程式。
1 4
範例輸出 ：
2
提示 ：
你可以只用算術運算子，而不用 if 指令來完成這題嗎？
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, x, y
ans = y \ 2 - x \ 2
Print #2, ans
Loop
Close
Close
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, x, y
Print #2, (y \ 2) - (x \ 2) + (x + 1) Mod 2
Loop
Close #2
Close #1
End
End Sub