Ответ:
10 дорог будет связывать А и К
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:=ReadAllText('Pascal.txt');
var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
for var i:=0 to c1.Length-1 do
t:=t.Replace(c1[i],c2[i]);
WriteAllText('Pascal.txt',t);
Writeln('Работа завершена');
end.
<u>Пример</u>
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
6 горшков по 8л и 3 горшка по 4л
6*8=48
3*4=12
48+12=60
РАССТОЯНИЕ МЕЖДУ ЧЕМ ЛИБО