Question

маша любит чётные числа, а миша – нечётные. поэтому они всегда радуются, если

встречают числа, которые им нравятся.

сегодня им встретились все целые числа от 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.

Answer 1

Объяснение:

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