Найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц

@Evgexa92 · Регистрация: 08.10.2019

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

Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц.

Входные данные
В единственной строке входного файла INPUT.TXT записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр от 1 до 100.

Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести искомую длину цепочки нулей.

Пример:

input 00101110000110;

output 4;

@JuriiMW · 11.10.2019, 13:06

Pascal

1
2
3

begin
  ReadLnString.AdjacentGroup().Max(c->c.Length).Print;
end.

@Sun Serega · 11.10.2019, 13:26

Надо считать только последовательности нулей.

@JuriiMW · 11.10.2019, 13:45

Pascal

1
2
3

begin
  ReadLnString.AdjacentGroup().Where(c->c[0]='0').Max(c->c.Length).Print;
end.

@eaa · 11.10.2019, 18:17

AdjacentGroup -

Split зарешает эту задачу.

@Sun Serega · 11.10.2019, 20:49

.ToWords и то лучше, оно хотя бы удалит нулевые элементы без дополнительных параметров. Но выглядит оно всё равно не на много лучше:

Pascal

1
2
3

begin
  ReadString.ToWords('1').Max(s->s.Length).Print;
end.

@Evgexa92 0 / 0 / 0 Регистрация: 08.10.2019 Сообщений: 13
		1
	Найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц 11.10.2019, 12:27. Показов 2663. Ответов 5 Метки нет (Все метки) Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Входные данные В единственной строке входного файла INPUT.TXT записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр от 1 до 100. Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести искомую длину цепочки нулей. Пример: input 00101110000110; output 4; 0

@Sun Serega 2309 / 1420 / 516 Регистрация: 07.04.2017 Сообщений: 4,723
	11.10.2019, 13:26	3
	Надо считать только последовательности нулей. 0

@eaa Status 418 4577 / 2344 / 602 Регистрация: 26.11.2017 Сообщений: 5,265 Записей в блоге: 3
	11.10.2019, 18:17	5
	AdjacentGroup - Split зарешает эту задачу. 0

	11.10.2019, 20:49