Перечислите (через пробел) по убыванию все возможные трёхзначные числа, в записи которых используются только цифры 5 и 9. Каждую из указанных цифр в записи числа можно использовать 1, 2 или 3 раза или не использовать ни разу.
решите в форме таблицы ( дерево

// PascalABC.NET 3.0, сборка 1073
var
  c:char;
begin
  Write('Введите римскую цифру (I,V,X,L,C,D,M): '); Readln(c);
  case c of
  'I':Writeln('1');
  'V':Writeln('5');
  'X':Writeln('10');
  'L':Writeln('50');
  'C':Writeln('100');
  'D':Writeln('500');
  'M':Writeln('1000');
  else Writeln('Вы ошиблись')
  end
end.

// PascalABC.NET 3.0, сборка 1073
var
  n:byte;
  x,y:real;
begin
  Write('Введите номер варианта (1-5): '); Readln(n);
  case n of
  1:begin
    Write('Выражение x^2+y^2, введите x,y: '); Read(x,y);
    Writeln('Результат: ',sqr(x)+sqr(y))
    end;
  2:begin
    Write('Выражение (a+b)^2, введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqr(x+y))
    end;
  3:begin
    Write('Выражение (c-d)^2, введите c,d: '); Read(x,y);
    Writeln('Результат: ',sqr(x-y))
    end;
  4:begin
    Write('Выражение |sin(x)|, введите x: '); Read(x);
    Writeln('Результат: ',abs(sin(x)))
    end;
  5:begin
    Write('Выражение sqrt(a^2+b^2), введите a,b: '); Read(x,y);
    Writeln('Результат: ',sqrt(sqr(x)+sqr(y)))
    end;
  else Writeln('Вы ошиблись')
  end
end.

4. 14

9. 5

Объяснение:

4. построим граф (картинка 1) или дерево (картинка 2, вычеркнуты пути, которые не приводят в D)

По ним видно, что добраться из A в F через D можно 2 путями, посчитаем их длину

ADF = 10 + 5 = 15

ABDF = 5 + 4 + 5 = 14

Длина кратчайшего пути между пунктами A и F, проходящий через пункт D, равна 14

9. картинка 3

Т.к. по условию нам нужны пути не проходящих через город D, то вычеркнем все пути ведущие в D (AD) и из него (DG и DE)

Начала пути (A) всегда 1 путь

A = 1

Дальнейшее количество путей - сумма от входящих путей (стрелочек).

Вычеркнутые пути НЕ считаем.

B = A = 1

E = A = 1 (DE вычеркнут)

и т.д.

Существует 5 различных путей из города A в город H, не проходящих через город D