Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
В заданном выражении скобка (¬x ∧ y ∧ z) будет равна 1 при следующих значениях переменных: x=0, y=1, z=1;
скобка (¬x ∧ ¬z) будет равна 1 при x=0, z=0.
Комбинацию значений 0, 1, 1 видим в последней строке таблицы, значит Перем.3 - это x; из второй строки определяем, что Перем. 2 - это z, следовательно, Перем.1 - это y.
Ответ: yzx
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>