Найти разность 810 – 1310 в восьмибитном представлении. прямой код
обратный код
дополнительный код
( )

Картинка.

Объяснение:

Вычитание заменяю сложением:

       0_0001000

     + 1_1110011

       1_1111011  

11111011 – 00000001 = 11111010

Переходим от обратного кода к прямому, инвертируя все цифры, за искл. старшего  разряда - 110000101. Это -5₁₀.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.