14 км
Объяснение:
Смотрим на граф. Больше всего дорог сходится в пункт Г (5 шт) В таблице так много дорог есть только у населенного пункта П6
Значит Г это П6
Далее
Населенный пункт Д имеет только одну связь, с Г. Смотрим в таблице, кто пересекается только с Г и ни с кем больше, это будет П4
Значит Д это П4
Смотрим, нас. пункт Б не имеет прямой дороги с Г. В таблице видим, что Г не пересекается с П2, значит П2 это Б.
Зато Б имеет связь только с А и В, причем с А немного длиннее чем с В
Смотрим в таблице с кем пересекается Б - с П1=12 км и с П5=8 км. Значит П1 это А, П5 это В.
Остались неназванными 2 пункта П3 и П7, очевидно что это Е и Ж, причем видно что расстояние ГЕ немного меньше чем ГЖ. Смотрим в таблицу: от Г до П3 11 км а от Г до П7 - 9 км. Значит П7 это Е, а П3 это Ж.
Теперь, зная все пункты, в таблице находим расстояние от Е до Ж - 14 км
эту программу можно сократить:
var
s1,s2,a:string;
begin
Readln(s1);
for var i := 0 to 9 do a += IntToStr(i);
for var i := 1 to Length(s1) do
for var k := 1 to 9 do
if s1[i] = a[k] then s2 += s1[i];
write(s2);
end.
for var i := 0 to 9 do a += IntToStr(i);
- заполнение массива числами от 0 до 9
for var i := 1 to Length(s1) do
for var k := 1 to 9 do
if s1[i] = a[k] then s2 += s1[i];
- двойной цикл проверяющий каждый символ в введенной строке, и в случае если символ = 1 из 10 цифр массива a прибавляет к переменной s2 этот символ