Вместо переменных A и B нужно подставить нули и единицы, всего в данном случае возможно 4 различных комбинации (A=0 и B=0; A=0 и B=1; A=1 и B=0; A=1 и B=1).
Для простоты понимания знак «ᴠ» можно представить как знак сложения «+», знак «&» как знак умножения «*», а черточка над знаком обозначает отрицание, т.е. противоположное значение ( отрицание нуля равно единице, отрицание единицы равно нулю).
Таким образом можно преобразовать выражение. Например, под буквой Б вместо A&(AvB) записать A*(A+B) и начать подставлять нули и единицы и заполнять таблицу:
A B AvB ( или A+B) A&(AvB) ( или A*(A+B) )
0 0 0 0
0 1 1 0
1 0 1 1
1 1 1 1
Под остальными буквами порядок действий проставлен правильно и действовать нужно по аналогии.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,20,84);a.PrintLn;
Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);
end.
Пример:
64 64 76 31 21 81 53 30 58 38 66 69 57 65 41
4
Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>