Постройте таблицу истинности
Отмечу как лучший♥️

PascalABC.NET 3.7:

##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)

Пояснение:

Используется формула для нахождения суммы первых n членов арифметической прогрессии:   , где — первый член прогрессии, — последний член, —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.

1.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,1)

сместиться на вектор (6,0)

сместиться на вектор (0,-1)

сместиться на вектор (-6,0)

сместиться на вектор (0,1)

кц

поднять перо

сместиться в точку (-1,-1)

кон

2.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,6)

сместиться на вектор (1,0)

сместиться на вектор (0,-6)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

кц

поднять перо

сместиться в точку (-1,-1)

кон

3.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,1)

сместиться на вектор (6,0)

сместиться на вектор (0,-1)

сместиться на вектор (-6,0)

сместиться на вектор (0,1)

кц

поднять перо

сместиться в точку (0,0)

опустить перо

нц 6 раз

сместиться на вектор (0,6)

сместиться на вектор (1,0)

сместиться на вектор (0,-6)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

кц

поднять перо

сместиться в точку (-1,-1)

кон

Объяснение:

Смотри картинки