а) (1+1) - дизъюнкция, результат 1
(1+0) - дизъюнкция, результат 1
1+1 - дизъюнкция, результат 1
б) Если А = 1
(1*1) = 1 конъюнкция
(¬А*0) = (0*0) = 0 конъюнкция
(1*А)+(¬А*0) = 1+0 = 1 дизъюнкция
((1*А)+(¬А*0))+1 = 1+1 = 1 дизъюнкция
Если А = 0
(1*0) = 0 конъюнкция
(¬А*0) = (1*0) = 0 конъюнкция
(1*А)+(¬А*0) = 0+0 = 0 дизъюнкция
((1*А)+(¬А*0))+1 = 0+1 = 1 дизъюнкция
Объяснение:
+ дизъюнкция (логическое сложение) - истина когда хотя бы один аргумент истинный
* конъюнкция (логическое умножение) - истина, когда оба аргумента истинны
¬ инверсия - превращает 1 в 0 и 0 в 1
program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.
Вычислим время: 2)9*1024* 8 / 1536 = 48 сек
3) 512 * 48 = 24576 бит = 3072 байт
ответ:3072