Ответы на вопрос:
// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! 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. пример введите строку замещаемых символов ячсми введите строку замещающих символов фывап работа завершена
Популярно: Информатика
-
Лина5г05.02.2022 08:11
-
ВДРПДАОЦПУЦ26.06.2023 15:15
-
bezrodnyhartem2Arizi01.08.2021 11:11
-
pe4onkina04.03.2023 22:01
-
shtylev201810.03.2022 02:59
-
123maladauskas27.06.2021 07:53
-
2112200720.11.2022 05:04
-
brayamsp0altc07.12.2022 21:27
-
Собака260918.01.2021 19:14
-
vovavk123.05.2020 11:13