Логическое выражение

f(x, y,z)=( (x или не y) и y) или (не x и (y или z)

ответ:

f(x,y,z) = y или не x и z

объяснение:

(( x ∨ ¬y) ∧ y) ∨ (¬x ∧ (y ∨ z)

переходим на альтернативную систему обозначений операций, заменяя ∧ на умножение и ∨ на сложение.

(( x + ¬y) · y) + (¬x · (y + z)

а теперь это обычная - раскрываем скобки

x·y + ¬y·y + ¬x·y + ¬x·z

особенность булевой : ¬y · y = 0

x·y + 0 + ¬x·y + ¬x·z

x·y + ¬x·y + ¬x·z

выносим y за скобки

y·(x + ¬x) + ¬x·z

еще одна особенность булевой : ¬х + х = 1

y·1 + ¬x·z

y + ¬x·z

можно вернуться к исходной системе обозначений

y ∨ ¬x ∧ z

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.