Найдите все значения при которых выражение принимает заданное значение ¬(a˅b)˄c=1; (a→b)˅(a→c)=0

№1: ¬(a + b) * c = 1;

 

по закону де моргана: ¬(a + b) = ¬a * ¬b

 

(¬a * ¬b) * c = 1

 

a = 0; b = 0; c = 1№2: (a -> b) + (a -> c) = 0 (a -> b) = 0; (a -> c) = 0; a = 1; b = 0; c = 0;

Var {секция описания переменных} number,num1,num2,sum: integer; begin{начало программы} write('введите двухзначное число: '); //вывод строки на экран read(number);   //переменная number получает значение с клавиатуры num1 : = number div 10;   //в num1 целая часть от деления number на 10 num2 : = number mod 10;   //в num2 остаток от деления number на 10 sum : = num1 + num2;   //находим сумму num1 и num2 write('сумма двух чисел — ',sum); //вывод результата на экран end. {конец программы}

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.