Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов

@Analysa · Регистрация: 23.11.2017

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

Дана строка символов. Выяснить, имеются ли в строке пара соседствующих
одинаковых символов.

@alex5code · 23.11.2017, 16:31

Pascal

begin
Var yourString :string = 'abcd';
Var bool: boolean := false;
 
for var i:= 2 to yourString.Length do 
  if yourString[i] = yourString[i-1] then begin
  bool:= true;
  break;
  end;
  Writeln(bool);
end.

@Puporev · 23.11.2017, 16:44

По Паскалевски, но не по NETовски.

Pascal

var s:string;
    i:integer;
begin
writeln('Введите строку');
readln(s);
i:=2;
while (i<=length(s))and(s[i]<>s[i-1]) do inc(i);
if i>length(s) then write('Нет пары соседних одинаковых символов')
else write('Есть пара соседних одинаковых символов например ',s[i-1],s[i])
end.

@volvo · 23.11.2017, 18:16

Как вариант:

Pascal

begin
  WritelnFormat('Строка {0}содержит пары одинаковых символов',
    Regex.Match(ReadlnString('Строка :'), '(.)\1').Length > 0 ? '' : 'не ');
end.

@Puporev · 23.11.2017, 18:19

Analysa, Изучаете Паскаль АВС.NET, учитесь писать как volvo.

@Analysa 0 / 0 / 0 Регистрация: 23.11.2017 Сообщений: 5
		1
	Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов 23.11.2017, 16:14. Показов 2770. Ответов 4 Метки нет (Все метки) Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	23.11.2017, 18:19	5
	Analysa, Изучаете Паскаль АВС.NET, учитесь писать как volvo. 1

Дана строка символов. Выяснить, имеются ли в строке пара соседствующих одинаковых символов

Решение