Операции со строками. Если символ встречается более одного раза, второе вхождение– заменить на "2", третье - на "3"

@gemoglob · Регистрация: 20.05.2012

Студворк — интернет-сервис помощи студентам

Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменения, второе – заменить цифрой «2», третье – «3» и т.д.

@TheSN · 30.05.2012, 15:08

Если символ повторяется более 9 раз, программа его пропустит. Можно добавить и остальные символы, кроме строчных латинских букв.

Pascal

var
  a: array ['a'..'z'] of integer;
  i: integer;
  s: string;
 
begin
  readln(s);
  
  for i := 1 to length(s) do 
    if s[i] in ['a'..'z'] then inc(a[s[i]]);  // подсчитываем количество вхождений каждого символа
  
  for i := length(s) downto 1 do  // строку рассматриваем с конца
    if (s[i] in ['a'..'z']) and (a[s[i]] in [2..9]) then  // если символ "нужный" и встречается менее 10 и более одного раза
    begin
      dec(a[s[i]]);   // понижаем статистику вхождения буквы  
      s[i] := chr(a[s[i]] + ord('1')); // не придумал ничего лучше этого     
    end;
  writeln(s); 
  
end.

@gemoglob · 30.05.2012, 15:37 **[ТС]**

большое спасибо за помощь

@gemoglob 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 8
		1
	Операции со строками. Если символ встречается более одного раза, второе вхождение– заменить на "2", третье - на "3" 30.05.2012, 14:35. Показов 2282. Ответов 2 Метки нет (Все метки) Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменения, второе – заменить цифрой «2», третье – «3» и т.д. 0

@gemoglob 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 8
	30.05.2012, 15:37 [ТС]	3
	большое спасибо за помощь 0

Опции темы

Операции со строками. Если символ встречается более одного раза, второе вхождение– заменить на "2", третье - на "3"

Решение