內容 ：
文文很喜歡偶數，他甚至有收集偶數的習慣。你給他一個範圍的連續整數，他就會把其中的偶數留下來收藏。如今他又拿到了一個範圍的整數，請問他這次收藏了幾個偶數？對文文來說，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) + (X + 1) Mod 2
Print #2, ans
Loop
Close #2
Close #1
End
End Sub
in.txt-----------------
0 2147483647
1 2147483647
1 4
0 4
7 14
8 14
out.txt-----------------
1073741824
1073741823
2
3
4
4
Dim ans
回覆刪除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, m, n
ans = (n \ 2) - (m \ 2)
Print #2, ans
Loop
Close
Close
End
End Sub