Question

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

Answer 1

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.