Уберите лишние скобки в логических выражениях:
1) X = (A+(B*C)*(A+C))
2) X=(A+неB)*(неC*A)*(A+(неB+неC)))
Вычислите значение логического выражения X=(A*B+C)*(неA+неC)
1) A=0 B=0 C=1
2)A=0 B=1 C=1
3) A=1 B=1 C=0
Постройте таблицу истинности логического выражения:
X=A*B+A*C+B*C

      численность           население через год   1   40000                             42000   2   42000                             44100   3   44100                             46305 переменная 1 = 3 переменная 2 =  46305    

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.