составьте программу которая позволяет закодировать строку путем замены всех звонких согласных на соответствующие глухие, а глухих на звонкие

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.