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

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

i - цикловая переменнаяs1 - сумма нечётных чисел от 1 до 100s2 - сумма чётных чисел от 1 до 100vari, s1, s2 : integer; begins1 : = 0; s2 : = 0; for i : = 1 to 100 do beginif i mod 2 = 0 thens2 : = s2 + i; elses1 : = s1 + i; end; writeln ('сумма четных чисел: ', s2); writeln ('сумма нечетных чисел: ', s1); end.

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.