Прошу помогите
Маша любит чётные числа, а Миша – нечётные. Поэтому они всегда радуются, если
встречают числа, которые им нравятся.
Сегодня им встретились все целые числа от A до B включительно. Маша решила посчитать
сумму всех чётных чисел от A до B, а Миша – сумму всех нечётных, после чего они начали спорить,
у кого получилась сумма больше. Помогите им – найдите разность между суммой Маши и суммой
Миши.
Программа получает на вход два целых положительных числа A и B, не превосходящие 2×109
.
Программа должна вывести одно число – разность между суммой чётных чисел и суммой нечётных
чисел от A до B.
Примеры входных и выходных данных
Ввод Вывод Примечание
3
6
2 Сумма чётных чисел равна 4 + 6 = 10, сумма нечётных чисел равна
3 + 5 = 8, разность равна 2.
3
7
-5 Сумма чётных чисел равна 4 + 6 = 10, сумма нечётных чисел равна
3 + 5 + 7 = 15, разность равна −5.
Ответы
Ответ:
Объяснение:
Sub Summa
Dim A As Long, B As Long, Schet As Long, Snech As Long
Dim Razn As Long, i As Long
Rem Тип Long включает целые числа от -2*10^9 до 2*10^9
Input "A = ", A, "B = ", B ' Вводим числа А и В
Schet = 0 ' Сумма четных чисел
Snech = 0 ' Сумма нечетных чисел
If A Mod 2 = 0 Then ' Если А четное
For i = A To B Step 2 ' Перебираем четные числа от А до В
Schet = Schet + i ' Прибавляем к сумме четных чисел
End For
For i = A + 1 To B Step 2 ' Перебираем нечетные числа от А до В
Snech = Snech + i ' Прибавляем к сумме нечетных чисел
End For
Else ' Иначе, если А нечетное
For i = A + 1 To B Step 2 ' Перебираем четные числа от А до В
Schet = Schet + i ' Прибавляем к сумме четных чисел
End For
For i = A To B Step 2 ' Перебираем нечетные числа от А до В
Snech = Snech + i ' Прибавляем к сумме нечетных чисел
End For
End If
Razn = Schet - Snech ' Разность между четной и нечетной суммой
Print Razn ' Выводим разность
End Sub