Доказать,используя таблицы истинности , что логические выражения A v B и A * B равносильны .

Построить таблицу истинности для формулы ((P*Q)>(P>R))vP

а) не (24 < 50) и (чётность) = не (истина) и (истина) = ложь и истина = ложь

б) не (45 < 50) и (чётность) = не (истина) и (ложь) = ложь и ложь = ложь

в) не (74 < 50) и (чётность) = не (ложь) и (истина) истина и истина = истина

г) не (99<50) и (чётность) = не (ложь) и (ложь) = истина и ложь = ложь

не (первая гласная) или не (последняя согласная)

а) не (истина) или не (ложь) = ложь или истина = истина

б) не (истина) или не (истина) = ложь или ложь = ложь

в) не (ложь) или не (истина) = истина или ложь = истина

г) не (ложь) или не (ложь) = истина или истина = истина

(первая гласная) и не (третья согласная)

а) (истина) и не (ложь) = истина и истина = истина

б) (ложь) и не (истина) = ложь и ложь = ложь

в) (ложь) и не (ложь) = ложь и истина = ложь

г) (истина) и не (истина) = истина и ложь = ложь

не (x < 7) или (x < 6)

а) не (4 < 7) или (4 < 6) = не (истина) или (истина) = ложь или истина = истина

б) не (5 < 7) или (5 < 6) = не (истина) или (истина) = ложь или истина = истина

в) не (6 < 7) или (6 < 6) = не (истина) или (ложь) = ложь или ложь = ложь

г) не (7 < 7) или (7 < 6) = не (ложь) или (ложь) = истина или ложь = истина

(x < 5) и не (x < 4)

а) (5 < 5) и не 5 < 4) = ложь и не (ложь) = ложь и истина = ложь

б) (2 < 5) и не (2 < 4) = истина и не (истина) = истина и ложь = ложь

в) (3 < 5) и не (3 < 4) = истина и не (истина) = истина и ложь = ложь

г) (4 < 5) и не (4 < 4) = истина и не (ложь) = истина и истина = истина

не (последний мягкий знак) и (чётность)

1) не (истина) и (истина) = ложь и истина = ложь

2) не (ложь) и (истина) = истина и истина = истина

3) не (истина) и (ложь) = ложь и ложь = ложь

4) не (ложь) и (ложь) = истина и ложь = ложь

begin

 var n := 5;

 Writeln('*** Исходная матрица ***');

 var a := MatrRandom(n, n, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 Writeln('*** Полученная матрица ***');

 var (i1, i2) := (0, 0);

 for var i := 1 to n - 1 do

 begin

   if a[i, i] < a[i1, i1] then i1 := i;

   if a[i, n - i - 1] > a[i2, n - i2 - 1] then i2 := i

 end;

 if i1 = i2 then

   for var i := 0 to n - 1 do

     (a[i, i], a[i, n - i - 1]) := (a[i1, i1], a[i1, i1])

 else Swap(a[i1, i1], a[i2, n - i2 - 1]);

 a.Println(4)

end.