Преобразовать

[Downtown]

Преобразуйте текст по следующему правилу: если нет символа '*', то оставить без изменений, иначе, заменить каждый символ, встречающийся после каждого символа '*', на '-'.

[Serge_Bliznykov]

isFound := false;
for i:=1 to Length(s) do
  if isFound then begin
     s[i] := '-';
     isFound := false;
  end
  else 
     if s[i] = '*' then isFound := true;

только в условии задачи есть неоднозначность.
расскажите, строчка: 0**1
в какую должна преобразоваться?

[Grag]

i:=1;
while i<Length(InStr) do
  begin
    if InStr[i]='*' 
      then
        begin
          InStr[i+1]:='-';
          Inc(i,2)
        end
     else Inc(i)
  end

[Downtown]

перед последним else оператора нету, подскажите какой

[Serge_Bliznykov]

перед последним else оператора нету, подскажите какой

поясните, какой код Вы имеете в виду? ( в моём примере вместо
for i:=1 to Length(s) then
надо, разумеется, for i:=1 to Length(s) do

[Tronix]

Сообщение от Serge_Bliznykov

только в условии задачи есть неоднозначность.
расскажите, строчка: 0**1
в какую должна преобразоваться?

По-моему нет никакой неоднозначности. Строчка 0**1 должна преобразоваться в строчку 0*-1