program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Основание системы 16 надо писать в скобках:
8BC(16) = 8*16^2 + 11*16 + 12 = 8*256 + 176 + 12 = 2048 + 188 = 2236
<span>Х = А*(В + !С) + А*!В
= A*B + A*!C + A*!B = A*(B + !B) + A*!C = A*1 + A*!C = A*(1 + !C) = A</span>
A)
F=a*(b+c)+a*b+a*c
F=a*(b+c+b+c)
F=a*(b+c)
б)
F=¬(¬a*b+a*(b+¬c))
F=¬(b*(¬a+a)+a*¬c)
F=¬(b+a*¬c)
F=¬b*¬(a*¬c)
F=¬b*(¬a+c)
в)
F=(¬(A+B)*¬A)→¬B
F=(¬A*¬B*¬A)→¬B
F=¬(A+B)→¬B
F=A+B+¬B
F=1