<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>
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>
1. 80000 бит
2. 1 920 000 бит
3. 1,5 мегабайт
Фонетика - раздел науки о языке, который изучает звуки речи.
3) - 1
4) - 3
5) - 2
Все просто.......