Хей, можешь уточнить в чём заключается задание поподробнее, а то не очень понятно.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
</h3>
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.
В таблице нас больше всего интересует последняя строка, т.к. в выражениях, в основном, дизъюнкция и импликация (за исключением последнего, там еще и конъюнкция), а дизъюнкция и импликация ложны только в одном случае, поэтому нам проще работать с ложью.
Подставим значения из последней строки в каждое выражение:
Примечание: импликация ложна в случае 1 → 0.
1) (1 → 1) → 0 - ложно, т.к. выражение в скобках даёт 1, и мы получаем (1) → 0 = 0
2) 1 → ( 1 → 0 ) - ложно, т.к. выражение в скобках даёт 0, и мы получаем 1 → (0) = 0
3) ¬1 ∨ 1 → 0 = (0 ∨ 1) → 0 = 1 → 0 - ложно
4) 1 ∨ 1 ∧ ¬ 0 - истинно, т.к. в дизъюнкции первой уже стоит 1. Кроме того, 1 ∧ ¬ 0 так же даёт 1.
Ответ: 4
Как определить, принадлежит ли точка с координатами графику если ты не отправила график?