Упростите выражения (информатика). Полоса сверху- это инверсия, а галочки - коньюнкция и дизьюнкция.

Знания

Информатика

1 ответ:

Ramzess [17.7K]3 года назад

0 0

1. ¬(A*B+¬C)
По закону де Моргана раскрываем скобки:
(¬А + ¬B) * C
В принципе уже упрощена, но по закону дистрибутивности еще можно записать как
¬А * С + ¬B * C

2. (x+z)*(x+¬z)*¬y
По закону склеивания выражение (x+z)*(x+¬z) = x
То есть все выражение будет иметь вид x*¬y

Читайте также

Язык Pascal ABC Больше всего на свете Паша любит две вещи — музыку и порядок. Каждый день, когда Паша возвращается домой, он вкл

Игорь Викторович

Var s:string;
ch:char;
n,i,j,err:integer;
begin
readln(n);
str(n,s);
for i := 1 to length(s)-1 do
for j := 1 to length(s)-i do
if s[j] > s[j+1] then begin
ch:=s[j];
s[j]:=s[j+1];
s[j+1]:=ch;
end;
val(s,j,err);
j*=9;
str(j,s);
n:=0;
for i:=1 to length(s) do begin
val(s[i],j,err);
n+=j;
end;
writeln(n);
<span>end.</span>

0 0

4 года назад

На клавиатуре ноутбука и нетбуков появилось много новых символов (рисунков справа) Какое из назначения функциональных клавиш ука

Иван Ремизов [14]

Сон конечно же))))))))))))))))))))

0 0

4 года назад

Слон Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2\%] По заданным координатам слона и пешки определить, находится ли

Кадров Ярослав [1]

Var
A, B, C, D: integer;
f1, f2: Text;

begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
    Readln(f1, A, B, C, D);
    if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
    else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.

0 0

4 года назад

В паскале плз 100 баллов

Ариэль Рыжая [9.2K]

Ответ:

program z1;

var k, n, m: byte;

Begin

If k<=m write 'yes'

else 'no'

end.

0 0

4 года назад

Для решения каких задач используется логическая функция ЕСЛИ?

jostik68

Ответ:

Для задач с условием. Проверяется истинность данного условия.

0 0

3 года назад