очень надо!
1. Выбери верный ответ.
нередко называют атрибутом данного отношения.
1) связь
2) дизъюнкция
3) имя аргумента
4) связь многие ко многим
2. Дано отношение: A∈a .
Имя данного отношения:
1) R
2) a
3) ∈
4) f
3. Выбери ключевой атрибут.
Название произведения: Автор: Век:
Шинель Н.В. Гоголь 19
1) Название произведения
2) 19
3) Н.В. Гоголь
4) Век
5) Автор
4. Вид отношения, подразумевающий, что нескольким записям одной таблицы базы данных соответствует несколько записей другой таблицы, называется отношением…
1) «два – ко – многим»
2) «многие – к – одному»
3) «многие – ко – многим»
4) «один – к – одному»
5. Какой тип данных базы данных Microsoft Access, предназначенный для порядковой нумерации записей?
1) Счетчик
2) Дата/время
3) Мастер подстановок
4) Поле объекта OLE
6. Какой из перечисленных типов данных не является типом данных Microsoft Access?
1) Денежный
2) Текстовый
3) Логический
4) Вещественный
7. Для чего предназначен режим Конструктора в MS Access?
1) Создания или изменения макета, структуры объектов
2) Сохранения информации об основных объектах MS Access
3) Создания файлов базы данных
4) Просмотра содержимого базы данных

// PascalABC.NET 3.0, сборка 1076
type
  Point=record
  x,y:real
  end;
  Line=record
  A,B:Point
  end;
  Triangle=record
  A,B,C:Point;
  sa,sb,sc:real; { длины сторон }
  end;

procedure GetPoint(PointName:char; var M:Point);
begin
  Write('Введите координаты точки ',PointName,'(x,y): ');
  Read(M.x,M.y)
end;

function LineLength(A,B:Point):real;
begin
  LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
 
procedure CreateTriangle(var T:Triangle; var l:boolean);
begin
  With T do begin
    GetPoint('A',A);
    GetPoint('B',B);
    GetPoint('C',C);
    sa:=LineLength(B,C);
    sb:=LineLength(A,C);
    sc:=LineLength(A,B);
    l:=(sa+sb>sc) and (sa+sc>sb) and (sb+sc>sa)
  end
end;

function TriangleIsLikes(T1,T2:Triangle):boolean;
var
  k1,k2,k3:real;
begin
  k1:=T1.sa/T2.sa; k2:=T1.sb/T2.sb;
  if k1=k2 then begin
    k3:=T1.sc/T2.sc;
    TriangleIsLikes:=k1=k3
    end
  else
    TriangleIsLikes:=False
end;

var
  T1,T2:Triangle;
  legal:boolean;
begin
  Writeln('*** Первый треугольник ***');
  CreateTriangle(T1,legal);
  if legal then begin
    Writeln('*** Второй треугольник ***');
    CreateTriangle(T2,legal);
    if legal then
      if TriangleIsLikes(T1,T2) then Writeln('Треугольники подобны')
      else Writeln('Треугольники не подобны')
    else Writeln('Треугольник невозможно построить')
    end
  else Writeln('Треугольник невозможно построить')
end.

Тут особо можно не думать. Замечаем, что в результате надо получить значение А⊕ Ā в восьмиразрядном представлении. Результат такой операции - всегда все единицы во всех разрядах. А разрядов эти по условию 8.

Если формат знаковый, то старший разряд, равный 1 означает, что число отрицательное, а они обычно хранятся в дополнительном коде. Для перевода в основной код инвертируем  все разряды, кроме старшего знакового. Получаем семь нулей. И прибавляем единицу, окончательно получая 10000001, т.е. -1 в двоичной системе. В десятичной системе (как и в любой другой с натуральным основанием, единица - всегда единица.

ответ: -1