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

@Aly220 · Регистрация: 03.11.2018

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

Бывают случаи, когда заедает клавиша на клавиатуре и вместо одной буквы пишется несколько. Например, вместо слова "home" пишется "hhhomeee". Написать программу, которая исправляет такие ошибки, то есть в введенной строке символов находит все места, содержащие несколько одинаковых символов подряд, и оставляет только один из этих символов. Вводить можно только маленькие буквы латинского алфавита. Примеры: "citttyyyy" = "city"; "doooooogg" = "dog"; "cccommpuuter" = "computer"
Помогите, пожалуйста!

@Cyborg Drone · 26.11.2018, 23:32

Для любых символов:

Pascal

var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := length(s) - 1 downto 1 do
    if s[i] = s[i + 1]
      then delete(s, i + 1, 1);
  write(s);
  readln
end.

@Aly220 · 27.11.2018, 14:50 **[ТС]**

Спасибо!!!!!!

@Aly220 0 / 0 / 0 Регистрация: 03.11.2018 Сообщений: 29
		1
	В строке заменить повторяющиеся символы на один символ 26.11.2018, 20:04. Показов 4553. Ответов 2 Метки нет (Все метки) Бывают случаи, когда заедает клавиша на клавиатуре и вместо одной буквы пишется несколько. Например, вместо слова "home" пишется "hhhomeee". Написать программу, которая исправляет такие ошибки, то есть в введенной строке символов находит все места, содержащие несколько одинаковых символов подряд, и оставляет только один из этих символов. Вводить можно только маленькие буквы латинского алфавита. Примеры: "citttyyyy" = "city"; "doooooogg" = "dog"; "cccommpuuter" = "computer" Помогите, пожалуйста! 0

@Aly220 0 / 0 / 0 Регистрация: 03.11.2018 Сообщений: 29
	27.11.2018, 14:50 [ТС]	3
	Спасибо!!!!!! 0

Опции темы

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

Решение