Выполните сложение двоичных чисел 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
var
c, d, e: integer;
begin
c := a;
d := b;
while (d > 0) do
begin
c := c mod d;
e := c;
c := d;
d := e;
end;
result := (a div c) * b;
end;
const
n = 4;
var
a: array [1..n] of integer;
b: array [1..n*n] of integer;
i, j, min_: integer;
begin
writeln('Введите n целых чисел, только вот давайте без нулей, детсадовцы знают, что на 0 делить нельзя, плохо это');
min_ := 2147483647;
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
for j := 1 to n do
begin
if (i = j) then continue;
b[i + n * (j - 1)] := nok(a[i], a[j]);
min_ := min(b[i + n * (j - 1)], min_);
end;
write(' ');
for i := 1 to n do
write(i:5);
writeln();
for i := 1 to n do
begin
write(i:5);
for j := 1 to n do
write(b[i + n * (j - 1)]:5);
writeln();
end;
writeln('min: ', min_);
end.