В строке символов выяснить, имеется ли в строке пара одинаковых символов до первого восклицательного знака

@map1992011 · Регистрация: 20.05.2017

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

Ребята буду признателен если поможете.

Написать, подпрограмму, которая в строке символов выясняет имеется ли в строке пара одинаковых символов до первого восклицательного знака.
Известно, что символ s1 отличен от восклицательного знака и что в строке есть по крайне мере один восклицательный знак.

@Hitoku · 20.05.2017, 03:56

Как вариант

Pascal    
        
    Скопировано
1
2
3
4
begin
  var s := ReadlnString('Введите строку:');
  write(s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2 ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.

Добавлено через 2 минуты
С функцией

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
function fun(s: string): boolean:=s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2;
begin
  var s := ReadlnString('Введите строку:');
  write(fun(s) ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.

@volvo · 20.05.2017, 10:22

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

пара одинаковых символов

Имеется в виду рядом, или вообще? Если рядом - то вот так:

Pascal    
        
    Скопировано
1
2
3
4
begin
  var s := '12344678! 3398!';
  writeln(Regex.Matches(s, '(.)\1').Cast&<Match>.FirstOrDefault(m -> m.Index < Pos('!', s)) <> nil);
end.

@map1992011 · 20.05.2017, 10:46 **[ТС]**

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

Имеется в виду рядом, или вообще?

Вообще.

Добавлено через 33 секунды

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

Как вариант
PascalВыделить код
1
2
3
4
begin
* var s := ReadlnString('Введите строку:');
* write(s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2 ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.
Добавлено через 2 минуты
С функцией
PascalВыделить код
1
2
3
4
5
function fun(s: string): boolean:=s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2;
begin
* var s := ReadlnString('Введите строку:');
* write(fun(s) ? 'Повторяющиеся есть' : 'Повторяющихся нет');
end.

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

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

@map1992011 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 4

	В строке символов выяснить, имеется ли в строке пара одинаковых символов до первого восклицательного знака 20.05.2017, 02:59. Показов 1055. Ответов 3 Метки нет (Все метки) Ребята буду признателен если поможете. Написать, подпрограмму, которая в строке символов выясняет имеется ли в строке пара одинаковых символов до первого восклицательного знака. Известно, что символ s1 отличен от восклицательного знака и что в строке есть по крайне мере один восклицательный знак. 0

@map1992011 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 4
	20.05.2017, 10:46 [ТС]
	Сообщение от volvo Имеется в виду рядом, или вообще? Вообще. Добавлено через 33 секунды Сообщение от Hitoku Как вариант PascalВыделить код 1 2 3 4 begin * var s := ReadlnString('Введите строку:'); * write(s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2 ? 'Повторяющиеся есть' : 'Повторяющихся нет'); end. Добавлено через 2 минуты С функцией PascalВыделить код 1 2 3 4 5 function fun(s: string): boolean:=s.Take(pos('!', s) - 1).GroupBy(v -> v).First.Count >= 2; begin * var s := ReadlnString('Введите строку:'); * write(fun(s) ? 'Повторяющиеся есть' : 'Повторяющихся нет'); end. Спасибо большое!!! 0