Все выражения можно упростить либо алгебраически, либо картами Карно, но в итоге получится одинаковое выражение. Затем просто строим таблицу истинности для упрощённого выражения и вуаля решено =)
~ - это отрицание, как чёрточка сверху на рисунке, просто не могу нормально тут написать. ~C - значит отрицание для С.
1. После упрощения получаем A~BC.
Если для этого выражения построим таблицу истинности, увидим, что оно положительно только при A=1, B=0, C=1. Для любого другого набора на выходе будет 0.
2. После упрощения получаем ~B. (Повторюсь, упрощаем алгебраически применяя законы поглощения и прочие, либо же карты Карно. Можно в лоб строить таблицу истинности, без упрощения, но она получится довольно большой и это геморно. Проще упростить и затем уже считать).
Соответственно, При B=1, на выходе будет 0,
при B=0, на выходе будет 1.
В данном случае A ни на что не влияет.
3. После упрощения получаем A~BB. С таким сочетанием у нас всегда будет 0. Какой бы набор A и B мы не брали, выражение на выходе всегда равно 0.
Объяснение:
Program Exp_1;
Var
a:array[1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 5 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
Readln;
End.
Program Exp_2;
Var
a:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
for i:=6 to 10 do
write(a[i]*5,' ');
Readln;
End.
Program Exp_3;
Const
n=10;
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
begin
a[i]:=5;
write(a[i]:3);
read;
end;
End.