Здравствуйте, Люди добрые кто нибудь создать таблицу Истинности
А) А& (NOT(В))
Б) A & A v A

А) N   O T А В N∧O N∧O∧T N∧O∧T∧В А∧(N∧O∧T∧В)

0 0 0 0 0 0 0 0 0

0 0 0 0 1 0 0 0 0

0 0 0 1 0 0 0 0 0

0 0 0 1 1 0 0 0 0

0 0 1 0 0 0 0 0 0

0 0 1 0 1 0 0 0 0

0 0 1 1 0 0 0 0 0

0 0 1 1 1 0 0 0 0

0 1 0 0 0 0 0 0 0

0 1 0 0 1 0 0 0 0

0 1 0 1 0 0 0 0 0

0 1 0 1 1 0 0 0 0

0 1 1 0 0 0 0 0 0

0 1 1 0 1 0 0 0 0

0 1 1 1 0 0 0 0 0

0 1 1 1 1 0 0 0 0

1 0 0 0 0 0 0 0 0

1 0 0 0 1 0 0 0 0

1 0 0 1 0 0 0 0 0

1 0 0 1 1 0 0 0 0

1 0 1 0 0 0 0 0 0

1 0 1 0 1 0 0 0 0

1 0 1 1 0 0 0 0 0

1 0 1 1 1 0 0 0 0

1 1 0 0 0 1 0 0 0

1 1 0 0 1 1 0 0 0

1 1 0 1 0 1 0 0 0

1 1 0 1 1 1 0 0 0

1 1 1 0 0 1 1 0 0

1 1 1 0 1 1 1 1 0

1 1 1 1 0 1 1 0 0

1 1 1 1 1 1 1 1 1

Б) A   v A∧A A∧A∧v A∧A∧v∧A

0 0 0 0 0

0 1 0 0 0

1 0 1 0 0

1 1 1 1 1

Объяснение:

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.