В строке каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к"

@Маргарит · Регистрация: 02.05.2016

Дана строка t, напишите алгоритм получения новой строки,в которой каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к".

@a1d4r · 02.05.2016, 15:19

Pascal

uses System.Text.RegularExpressions;
begin
  var t := ReadlnString;
  write(Regex.Replace(t, 'к+', 'к'))
end.

@Маргарит · 02.05.2016, 15:23 **[ТС]**

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

Pascal

uses System.Text.RegularExpressions;
begin
  var t := ReadlnString;
  write(Regex.Replace(t, 'к+', 'к'))
end.

Подскажите а можно с другими функциями , попроще

@a1d4r · 02.05.2016, 16:08

Pascal

var
  t, s: string;
  i: integer;
begin
  read(t);
  t := t + ' ';
  s := '';
  for i := 1 to length(t) - 1 do
    if t[i] + t[i + 1] <> 'кк' then
      s := s + t[i];
  write(s);
end.

@Маргарит · 02.05.2016, 16:13 **[ТС]**

спасибо большое!

@Маргарит 0 / 0 / 0 Регистрация: 02.05.2016 Сообщений: 10
		1
	В строке каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к" 02.05.2016, 14:24. Просмотров 1288. Ответов 4 Метки нет (Все метки) Дана строка t, напишите алгоритм получения новой строки,в которой каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к". 0

@Маргарит 0 / 0 / 0 Регистрация: 02.05.2016 Сообщений: 10
	02.05.2016, 16:13 [ТС]	5
	спасибо большое! 0

Опции темы

В строке каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к"

Решение