Выполнить арифметические операции в двоичной системе счисления: 1010101+1011101; 1010111+111110; 101111+11010:

1) ответ : 10110010 2)   ответ  10010101 3) 1001001

{файл: prog3_13.:   дано целое положительное число n, вещественное число x. найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)++a1*x^1+a0,    если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке: an, a(n-1), a1, a0автор:     дата    22,09,2015}var n, a, i, j : integer;     x, p, x1 : real;       begin  p: =0;   {ввод постояных x, n}  writeln ('введите n, x');   readln (n, x);   {начало вычисление многочлена}  for i: =n downto 1 do    begin      {ввод an, an- a1, a0}      writeln ('введите a',i);       readln (a);               for j: =1 to n do        begin          {вычисление x^n}          x1: =1;           x1: = x1*x;         end;       {вычисление an*x^n+a(n-1)+x^(n-1)++a1*x^1+a0}        p: =a*x1+p;     end;   {ответ}      writeln('значение многочлена ',p); end.

{файл prog2_3_13.:   каждая клетка шахматной доски 8*8 определяется двумся целыми числами - номером горизонтали m и номер вертикали n. даны четыре натуральных числа m1, n1, m2, n2. проверить, бьет ли конь, находящийся на m1, n1 клетку m2, n2? автор:     дата: 16,09,2015}var m1, m2, n1, n2 : byte; begin{ввод}writeln('введите координаты коня (m1, n1)'); readln (m1, n1); writeln ('введите координаты цели (m2, n2)'); readln (m2, n2); {вычисление}if (n1=n2-2) or (n1=n2+2) and (m1=m2+1) or (m1=m2-1)    { конь бьет цель}  then writeln ('конь бьет цель')  else      if (n1=n2-1) or (n1=n2+1) and (m1=m2+2) or (m1=m2-2)      {конь бьет цель}    then writeln ('конь бьет цель')    {конь не бьет цель}    else writeln ('конь не бьет цель'); end.