1111-101= 111100-10100= 1101001-100011= 10010110-110010= 11000011-1000001= 101+1111= 10100+111100= 100011+110010= 110010+10010110= 1000001+11000011=

1111-101=1010

111100-10100=101000

1101001-100011=1000110

10010110-110010=1100100

11000011-1000001=10000010

101+1111=10100

10100+111100=1010000

100011+110010=1010101

110010+10010110=11001000

1000001+11000011=100000100

пуск - все программы - стандартные - калькулятор. выбираем инженерный вид. нажимаем на панеле на bin. калькулятор теперь работает в двоичной системе. ввлдим туда свои цифры. 

для первого примера ответ -   1010 и т.д.

Pascalabc.net 3.4.2, сборка 1887 от 30.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -50, 50);

  a.println;

  var s : = 0;

  for var i : = 0 to a.high do

    if a[i].isodd then

    begin

      print(i + 1);

      s += a[i]

    end;

  println;

  println('сумма нечетных значений равна', s)

end.

пример

n= 17

-40 7 39 -29 -3 11 21 -49 12 33 -30 1 -48 36 -12 44 -17

2 3 4 5 6 7 8 10 12 17

сумма нечетных значений равна 14

1) var x: real; begin writeln ('введите число'); readln (x); if x> 0 then writeln ('число ', x, ' положительное') else if x< 0 then writeln ('число ', x, ' отрицательное') else if x=0 then writeln ('число ', x, ' не является ни положительным, ни отрицательным'); end. 2. var x, y: real; begin writeln ('введите два числа'); readln (x,y); if x> y then writeln (x) else if x< y then writeln (y) else if x=y then writeln ('числа равны'); end. 3. var x, sum, pr: real; i: integer; begin sum: =0; pr: =1; for i: =1 to 5 do begin write ('введите число: '); readln (x); sum: =sum+x; pr: =pr*x; end; writeln ('сумма чисел = ', sum); writeln ('произведение чисел = ', pr); if sum> pr then writeln (sum) else if sum< pr then writeln (pr) else if sum=pr then writeln ('сумма и произведение равны'); end.