1. найти простейшую формулу от трёх переменных, принимающую значение 0 только на следующих наборах значений переменных: 7) а(0,0,0) = а(0,1,1) = а(1,0,1) = а(1,1,1) 2. найти простейшую формулу от трёх переменных, принимающую значение 1 только на следующих наборах значений переменных: 7) а(0,0,0) = а(0,1,1) = а(1,0,1) = а(1,1,1) 3. получить простейшую формулу от четырёх переменных (в виде минимальной кнф и минимальной днф), если столбец значений этой формулы имеет вид: 7) 1100111110101111

1. x /\ y /\ ! z (x и у и (не)z) 2. x \/ y \/ ! z

Var   ptr: integer; function getword(s: string): string; // возвращает очередное слово из строки s или пустое значение, // если в строке больше нет слов. // перед вызовом позиция начала слова указывается переменной ptr. // перед выходом ptr устаналивается на границу следующего слова // ptr=0 означает, что вся строка просмотрена. var   n, p: integer; begin   n : = length(s);   if (ptr > = n) or (ptr=0) then begin       ptr : = 0;       result : = ''   end   else begin       p : = posex(' ', s, ptr);       if p > 0 then begin           result : = copy(s, ptr, p - ptr);           ptr : = p + 1       end       else begin           result : = copy(s, ptr, n - ptr + 1);           ptr : = 0       end   end end; var   s1, s2, s: string;   n: integer; begin   writeln('вводите строку');   readln(s1);   ptr : = 1;   s2 : = '';   repeat       s : = getword(s1);       n : = length(s);       if n > 0 then           if (s[1] < > 'о') or (s[n] < > 'о') then               s2 : = s2 + s + ' '   until n = 0;   n : = length(s2);   if s2[n] = ' ' then       s2 : = copy(s2, 1, n - 1);   writeln('результирующая строка: ', s2) end. тестовый прогон: вводите строку в это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину. результирующая строка: в это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.