Можно ли выполнить сложение в двоичной системе счисления не используя таблицу сложения приведите пример

Ми́кроэргономика занимается исследованием и проектированием систем «человек-машина».

Ми́диэргономика исследует производственные взаимодействия на уровне рабочих мест и производственных задач. К ведению мидиэргономики относится проектирование структуры организации помещений, планирование и установление расписания работ, гигиена и безопасность труда.

Ма́кроэргономика исследует и проектирует систему в целом, учитывая все факторы: технические, социальные, организационные.

Целью макроэргономики является гармоничная, согласованная и надежная работы всей системы, "как единого организма".

Виды совместимости среды «человек-машина»

Антропометрическая совместимость — учёт размеров тела человека, возможности обзора внешнего пространства, положения оператора при работе.

Сенсомоторная совместимость — учёт скорости моторных операций человека и его реакций на различные виды раздражителей.

Энергетическая совместимость — учёт силовых возможностей человека при определении усилий, прилагаемых к органам управления.

Психофизиологическая совместимость — учёт реакции человека на цвет, цветовую гамму, частотный диапазон подаваемых сигналов, форму и другие эстетические параметры машины.

procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real);  // var в параметрах означает, что переменная используется для возврата значения

var

 i, c: Integer;

begin

 S := 0;

 c := 0;

 for i := 0 to High (Ax) do begin

   S := S + Ax [i];   // здесь накапливаем сумму элементов

   c := c + 1;

 end;

 M := S / c;   // когда найдена сумму, рассчитываем среднеарифметическое

end;

var

 A: array [0..4] of Integer;     // размерность массивов можно делать любой, но начинаться с 0

 B: array [0..14] of Integer;

 C: array [0..9] of Integer;

 i, s: Integer;

 m: Real;

begin

 SetConsoleCP (1251);

 SetConsoleOutputCP (1251);

 Randomize;   // инициализация датчика случайных чисел

 WriteLn ('Массив 1:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (10);   // заполняем элементы массива случайными значениями

   Write (IntToStr (A [i]) + ' ');   // выводим их для вызов процедуры

 WriteLn;   // показываем возвращаемые из функции переменные

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

 WriteLn;   // аналогично поступаем с другими массивами

 WriteLn ('Массив 2:');

 for i := Low (B) to High (B) do begin

   B [i] := Random (10);

   Write (IntToStr (B [i]) + ' ');

 end;

 CalcArray (B, s, m);

 WriteLn;

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

 WriteLn;

 WriteLn ('Массив 3:');

 for i := Low (C) to High (C) do begin

   C [i] := Random (10);

   Write (IntToStr (C [i]) + ' ');

 end;

 CalcArray (C, s, m);

 WriteLn;

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

end.