Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Илона2407
21.01.2021 09:57 •
Информатика
Составьте программу которая позволяет закодировать строку путем замены всех звонких согласных на соответствующие глухие, а глухих на звонкие
Показать ответ
Ответ:
milknastas
25.06.2020 07:29
const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
shkliarchuk03
30.11.2022 03:57
Придумайте загадки для понятий: телефон, стол, дискета, записная книжка, мышь, школа. да побольше...
Миксеры
30.11.2022 03:57
Вот число 1101 и 1001 и там цифра 2 для чево. и как это ришать но именно. 4 цифры...
happymenfeed
09.06.2022 17:31
Найти сумму всех элементов массива а,у которых число десятков (вторая с конца цифра десятичной записи) больше , чем число единиц....
natka012
09.06.2022 17:31
444 из десятичной перевести в двоичною...
eidhei
28.12.2021 10:02
Aof шеснадцатеричная перевести в двоичную решением...
Миша112236677777777
17.12.2020 14:49
Переведите в десятичную систему числа: 7018 и 3а16. , . (отдельные числа)...
obsharov7
27.12.2022 08:55
Почему важно знать устройство компьютера? p.s. много за ответ....
maryclarly
13.01.2021 22:49
Используя предложенные слова сформулируй в рабочей тетради и в текстом редакторе истинные высказывания : дождь, снег,пасмурная погода....
memasik67
12.05.2022 15:26
Заменить слово море на слово суша заменяя по одной букве...
Alenasol1
01.02.2023 17:34
Преобразовать слово миг в слово век, заменяя по одной букве....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.