Переведите, дополнительный код -11101111 в прямой

Доп. Обратн Прямой
(11101111)(11101110)(10010001)

Ложь И НЕ Истина = Ложь (False)

НЕ (Истина ИЛИ Ложь) = Ложь (False)  

НЕ Истина И НЕ Ложь = Ложь (False)

НЕ (Ложь И Истина) = Истина (True)

НЕ Истина И НЕ Истина = Ложь (False)

Истина ИЛИ НЕ Истина = Истина (True)

Объяснение:

Ложь И НЕ Истина = Ложь И Ложь = Ложь

НЕ (Истина ИЛИ Ложь) = НЕ (Истина) = Ложь  

НЕ Истина И НЕ Ложь = Ложь И Истина = Ложь

НЕ (Ложь И Истина) = НЕ (Ложь) = Истина  

НЕ Истина И НЕ Истина = Ложь И Ложь = Ложь

Истина ИЛИ НЕ Истина = Истина ИЛИ Ложь = Истина

НЕ - высказывание обратно исходному высказыванию

И - истинно, когда истинны оба исходных высказывания

ИЛИ - ложно, когда ложны оба исходных высказывания

Порядок:

1) скобки

2) НЕ

3) И

4) ИЛИ

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.