Составьте таблицы истинности для следующих формул: 1) (a∧¬b)импликация(c∨d) 2) ((а импликация b)∧¬b)импликация ¬a премного !

  (a∧¬b)импликация(c∨d) а  в  с  д ¬в  a∧¬b   c∨d    (a∧¬b)импликация(c∨d) 0  0  0  0  1      0          0          1 0  0  0  1  1      0          1            1 0  0  1  0  1      0          1          1 0  0  1  1  1      0          1          1 0  1  0  0  0      0            0        1 0  1  0  1  0      0          1          1 0  1  1  0  0      0          1          1 0  1  1  1  0      0          1          1 1  0  0  0  1      1          0          0 1  0  0  1  1      1          1          1 1  0  1  0  1        1          1          1 1  0  1  1  1      1          1          1 1  1  0  0  0      0          0          1 1  1  0  1  0      0          1          1 1  1  1  0  0      0          1          1 1  1  1  1  0      0            1          1 ((а импликация b)∧¬b)импликация ¬aа  в  а импликация b  не в  ((а импликация b)∧¬b)  ¬a  конец 0    0      1                      1              1                            1        1 0  1        1                    0               0                             1         1 1   0       0                     1               0                             0         1 1   1       1                     0               0                             0         1

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.