內容 ：
文文很喜歡偶數，他甚至有收集偶數的習慣。你給他一個範圍的連續整數，他就會把其中的偶數留下來收藏。如今他又拿到了一個範圍的整數，請問他這次收藏了幾個偶數？對文文來說，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
Input #1, former, latter
ans = latter - former + 1
For i = former To latter
ans = ans - (i Mod 2)
Next
Print #2, ans
Close #2
Close #1
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
Input #1, n1
Input #1, n2
n2 = n2 \ 2
n1 = n1 \ 2
n = n2 - n1
Print #2, n
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, a, b
b = b \ 2
a = a \ 2
p = b - a
Print #2, p
Close
Close
End
End Sub
Me.Hide
回覆刪除Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, a, b
For i = Val(a) To Val(b)
c = c + (i Mod 2)
Next i
ans = Val(b) - Val(a) + 1 - c
Print #2, ans
Close #2
Close #1
End
End Sub