Question

Паскаль! Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.

Answer 1

Var s: string;
    n,k: integer;
begin
  n:=1; k:=0;
  write('строка: ');  readln(s);
  while n>0 do
  begin
    n:=pos('ба',s);
    if (n>0) then
    begin
      k:=k+1;
      s[n]:='р';
      s[n+1]:='о';
    end;
  end;
  if k>0 then writeln('новая строка: ',s)
  else writeln('нет слога "ба" ');
end.

строка: большой баобаб
новая строка: большой роороб