Выполните сложение двоичных чисел 1) а) 101+111 б) 1101+110 в) 1111+1011 г)1011+110 д)1010+1111 е)11,011+101,01
выполните вычитание двоичных чисел
2) а) 1010-110 б)110-11 в)1011-101,11 г)11011,11-101,01 д)1101,101-1001,01
выполните умножение двоичных чисел
3) а)101х11 б)110х101 в)111х11 г)1011х11,01 д)1111,01х101 е)101,11х1,101

CONST k=10; {k - количество чисел в массиве}VAR a:array[1..k] of integer;    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}    sr:real; {sr - среднее арифметическое} BEGIN  summ:=0; n:=0; {Обнуляем счетчики}  for i:=1 to k do     begin      a[i]:=random(50); {Заполняем массив случайными числами}      write (a[i],' '); {Выводим массив}      if a[i] mod 2=0 then         begin          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}          n:=n+1        end    end;  sr:=summ/n; {Находим среднее арифметическое}  writeln;  writeln (sr:0:2) {Выводим среднее арифметическое}END.

3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.

Я надеюсь, что я правильно поняла задание первой и второй задачи о: