Решите уравнение: ¬(а+в)+а∧в =0; а+в∧(¬а+¬в+а)=1.

Результат в приложении

Объяснение:

int main()

{

   int x[20] = { 1,-2,3,-4,5,-6,-7,3,-1,14,33,45,-1,13,-8,3,2,8,90,11 };

   int y[20];

   int n = 0;

   for (int i = 1; i < 19; i++)

   {

       if (x[i - 1] < 0 && x[i + 1] < 0)

       {

           bool exists = false;

           for (int j = 0; j < n; j++)

           {

               if (y[j] == x[i])

               {

                   exists = true;

                   break;

               }

           }

           if (!exists)

           {

               y[n] = x[i];

               n++;

           }

       }

   }

   if (n == 0)

       std::cout << "Нет элементов" << std::endl;

   else

   {

       for (int i = 0; i < n; i++)

       {

           std::cout << (y[i]) << " ";

       }

       std::cout << std::endl;

   }

   _getch(); //Экран не закрывается, пока не нажата любая клавиша

   return 0;

}

1)//вправо const   n=10; type   ty=array[1..n] of integer; var   ar: ty;   i,k: integer;   procedure push(var ar: ty); var   i,c: integer; begin   c: =ar[n];   for i: =n downto 2 do   ar[i]: =ar[i-1];   ar[1]: =c; end;   begin   randomize;   writeln('enter k: ');   readln(k);   writeln('first array: ');   for i: =1 to n do     begin;     ar[i]: =random(10);     write(ar[i]: 4);     end;   for i: =1 to k do   push(ar);   writeln;   writeln('final array: ');   for i: =1 to n do     write(ar[i]: 4); end.2)var   a,i,b,r,n: integer;   s,se: string; procedure preob(var a,b,n: integer; var se: string);   begin   repeat     b: =a mod n;     a: =a div n;     str(b,se);     s+=se;   until (a< =n-1);   end; begin readln(a); readln(n); preob(a,b,n,se); str(a,se); s+=se; for i: =1 to length(s) div 2 do begin; se: =s[i]; s[i]: =s[length(s)-i+1]; s[length(s)-i+1]: =se[1]; end; val(s,r,a); write(r); end.