ІВ Алгоритм, називається лінійним ... a. якщо в ньому присутній конструкція якщо ... то ... інакше b. якщо операції виконуються в порядку їхнього природного дотримання один за одним незалежно від будь-яких умов c. якщо він представимо в табличній формі d. якщо його виконання передбачає багатократне повторення одних і тих же операцій e. якщо він включає в себе допоміжний алгоритм

Обратный код от A это A' = 2^8 - 1 - A = Const - A
Схема вычитания путем суммы обратных кодов справедлива т.к.:
(A - B)' = A' + B'' = (Const - A) + (Const - (Const - B)) = Const - (A - B)

самый левый бит - это бит знака. если там 1 - то число отрицательное. Например, пусть дан обратный код:
F' = 0010 1010, инвертируем биты, получаем:
F = 1101 0101 - смотрим на левую цифру (старший разряд) он равен 1, значит приписываем минус:
F = - (0101 0101) = -85
 
а)
19' = (0001 0011)' = 1110 1100
14' = (0000 1110)' = 1111 0001

F' = 19 - 14 = 19' + 14'' = 19' + 14 = 
1110 1100 +
0000 1110 = 
1111 1010

F = F'' = (1111 1010)' = 0000 0101 = 5

б) F' = 19' + 43''= 
1110 1100 + 
0010 1011 =
0101 0111 (тут переполнение) 

F = 110 1000 = -010 1000 = -24

в) F' = 43 - 25 = 43' + 25'' = 
1101 0100 +
0001 1001 =
1110 1101

F = F'' = (1110 1101)' = 0001 0010 = 18

Задание №1
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
Задание №1
var
  a, b, i, s1, s2, s3,k: integer;

begin
  a := readinteger('Введите первое трехзначное число');
  b := readinteger('Введите второе трехзначное число');
  for i := a to b do
  begin
    k:=0;
    s1 := i mod 10; k:=1;
    s2 := (i div 10) mod 10;
    if s2=s1 then k:=k+1;
    s3 := (i div 100)mod 10;
    if s3=s1 then k:=k+1;  
    if k = 2 then println(i);
  end;
end.

Тестовое решение:
Введите первое трехзначное число 100
Введите второе трехзначное число 200
100
101
121
122
131
133
141
144
151
155
161
166
171
177
181
188
191
199
200

Задание №2
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,b,n:integer;
  p:biginteger;
begin
  repeat
    a:=readlninteger('Введите a');
    n:=readlninteger('Введите n');
  until (a>0) and (n > 0);
  p:=1;
  for var i:=1 to n do begin
    p:=p*a;
  end;
  println(a, 'в степени', n,' = ',p);
    p:=1;
  for var i:=1 to a do begin
    p:=p*n;
  end;
  println(n, 'в степени', a,' = ',p);
 end. 

Тестовое решение:

Введите a
2
Введите n
 3
2 в степени 3  =  8
3 в степени 2  =  9