1. Каковы особенности компьютеров I поколения? 2. Когда появились компьютеры I поколения?
3. Чем отличались компьютеры II поколения?
4. Когда появился первый микропроцессор?
5. Что такое переносной компьютер?​

36.

Объяснение:

1. Ищем путь в таблице, который является уникальным, то есть отличается количеством путей. Таким пунктом является "П3", так как только у него есть два пути.

Ищем на схеме пункт с двумя путями. Это пункт "К". Отмечаем его, как "П3".

Итого получаем: "К" - "П3".

2. Смотрим какие пункты соединены с "П3". Это пункты "П2" и "П5".

У пункта "П2" 4 пути, у пункта "П5" 3 пути.

Ищем на схеме пункт, который связан с "К" и имеет 3 пути (берем именно три, так как нам нужно расстояние от В до Е, где В имеет три пути). Это пункт "Е". Отмечаем его, как "П5".

Итого получаем: "К" - "П3", "Е" - "П5".

3. Ищем в таблице пункт, который связан с "П5" и имеет три пути. "П2" не подходит, так как имеет 4 пути, "П3" мы уже соотнесли с "К". Подходит пункт "П7", так как он имеет три пути и связан с "П5". Соотнесем пункт "В" с "П7".

Итого получаем: "К" - "П3", "Е" - "П5", "В" - "П7".

Так как мы нашли пункты, которые соответствую В и Е, то можем найти расстояние между ними. В итоге, расстояние равно 36.

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.