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

@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.

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

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

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

@map1992011 0 / 0 / 0 Регистрация: 20.05.2017 Сообщений: 4
	20.05.2017, 10:46 [ТС]	4
	Сообщение от 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