Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 02.05.2016
Сообщений: 10
1

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

02.05.2016, 14:24. Просмотров 1288. Ответов 4
Метки нет (Все метки)

Дана строка t, напишите алгоритм получения новой строки,в которой каждую группу подряд идущих букв "к" необходимо заменить на одну букву "к".
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.05.2016, 14:24
Ответы с готовыми решениями:

Подсчитать самую длинную последовательность подряд идущих букв "а" в строке
Дана строка подсчитать самую длинную последовательность подряд идущих букв а.

Верно ли, что в данной строке имеются 5 подряд идущих букв "е"
дана строка символов выяснить верно ли что в строке имеются 5 подрят идущих букв е на pascal

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, исходные "." заменить на...

Верно ли, что в стоке есть по крайней мере "N" подряд идущих букв "А"
Даны строка и число "N". Верно ли, что в ней есть, по крайней мере, "N" подряд идущих букв "А". ...

4
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
02.05.2016, 15:19 2
Pascal
1
2
3
4
5
uses System.Text.RegularExpressions;
begin
  var t := ReadlnString;
  write(Regex.Replace(t, 'к+', 'к'))
end.
1
0 / 0 / 0
Регистрация: 02.05.2016
Сообщений: 10
02.05.2016, 15:23  [ТС] 3
Цитата Сообщение от a1d4r Посмотреть сообщение
Pascal
1
2
3
4
5
uses System.Text.RegularExpressions;
begin
  var t := ReadlnString;
  write(Regex.Replace(t, 'к+', 'к'))
end.
Подскажите а можно с другими функциями , попроще
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
02.05.2016, 16:08 4
Лучший ответ Сообщение было отмечено Маргарит как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
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.
1
0 / 0 / 0
Регистрация: 02.05.2016
Сообщений: 10
02.05.2016, 16:13  [ТС] 5
спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.05.2016, 16:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В данном словосочетании заменить два символа "ас" на один символ "*" и удалить букву "о"
В данном словосочетании заменить два символа &quot;ас&quot; на один символ &quot;*&quot; и удалить букву &quot;о&quot;.

Каждую встреченную в заданном предложении букву "р" заменить сочетанием букв "ля"
Составить программу, которая каждую встреченную в заданном предложении букву &quot;р&quot; заменяла бы...

Каждую встреченную в заданном предложении букву "р" заменить сочетанием букв "ля"
Составить программу которая каждую встречную в заданном предложении букву &quot;р&quot; заменяла бы...

Каждую заглавную букву заменить строчной буквой, пару букв "ки" заменить на "ю"
не могу понять как всё это сделать void shifr () { FILE *f1; system(&quot;cls&quot;);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.