Ответы на вопрос:
// pascalabc.net 3.0, сборка 1088 const cu='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; cl='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var s: string; i,p: integer; begin write('введите строку: '); readln(s); for i: =1 to length(s) do begin p: =pos(s[i],cu); if p> 0 then s[i]: =cl[p] end; write('перекодировано: ',s) end. тестовое решение: введите строку: -в чащах юга жил бы фикус? -да, но фальшивый экземпляр! перекодировано: -в чащах юга жил бы фикус? -да, но фальшивый экземпляр!
Популярно: Информатика
-
крыня130.07.2020 02:30
-
Bamper113.08.2021 19:20
-
Dastannn119.10.2022 07:26
-
Рустам200906.06.2023 05:20
-
Cronus1Oleg22.02.2021 20:14
-
onealoner1309.11.2022 06:05
-
дарья164013.06.2023 08:02
-
Zhuravl22023.03.2022 03:01
-
Egor45680320.10.2020 05:43
-
fkffjfjfjfj23.07.2020 09:13