Составьте программу, которая позволяет заменить в строке S буквы о ** буквы и, а буквы и...

Question

Составьте программу, которая позволяет заменить в строке S буквы о на буквы и, а буквы и - на буквы о

Answer 1

Var
  str:string;
  i:integer;
begin
  readln(str);
  for i:=1 to length(str)do
  begin
  if str[i] = 'о' then str[i]:='и' else
  if str[i] ='и' then str[i]:='о';
  end;
  write(str);
end.