Определить какое наибольшее число подряд идущих купе полностью свободны

@Ризван23 · Регистрация: 24.10.2017

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

В плацкартном вагоне 54 места, пронумерованных числами от 1 до 54. Вагон разбит
на 9 купе. Первые 36 мест расположены по левую сторону от прохода, места 1–4 находятся
в первом купе, места 5–8 – во втором и т. д. В девятом купе находятся места с номерами 33–
36. По правую сторону от прохода находятся боковые места, их номера от 37 до 54, причём
они нумеруются в противоположном направлении: места 37 и 38 находятся напротив
девятого купе, а места 53 и 54 – напротив первого. Ниже приведена схема всех мест в вагоне.

1 3 2 4	5 7 6 8	9 11 10 12	13 15 14 16	17 19 18 20	21 23 22 24	25 27 26 28	29 31 30 32	33 35 34 36
53 54	51 52	49 50	47 48	45 46	43 44	41 42	39 40	37 38

Группа школьников едет на олимпиаду и будет всю дорогу крутить спиннеры.
Поэтому им нужно купить места в нескольких подряд идущих купе вместе с прилегающими
боковыми местами. Даны номера свободных мест в поезде. Определите, какое наибольшее
число подряд идущих купе полностью свободны.
Программа получает на вход число N – количество свободных мест в вагоне
(0 ≤ N ≤ 54). Следующие N строк содержат номера свободных мест – различные числа от 1
до 54 в произвольном порядке, по одному числу в строке.
Программа должна вывести одно целое число – максимальное число подряд идущих
свободных купе (купе – 4 места слева от прохода и 2 боковых места) в этом вагоне.

@Aimer · 29.10.2017, 18:54

Спасибо за информацию

@bormant · 29.10.2017, 18:56

Ну и до кучи решение только на множестве:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  i, n, m, k, t: Integer;
  r: set of 1..54;
begin
  Read(n); r:=[1..54];
  for n:=1 to n do begin
    Read(t); Exclude(r,t);
  end;
  for n:=0 to 8 do begin
    t:=6;
    for i:=n*4+1 to n*4+4 do
      if not (i in r) then Dec(t);
    for i:=53-n*2 to 54-n*2 do
      if not (i in r) then Dec(t);
    if t=0 then Inc(k) else k:=0;
    if m<k then m:=k;
  end;
  WriteLn(m);
end.

@Aimer · 29.10.2017, 19:17

Спасибо

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@Aimer 2 / 2 / 1 Регистрация: 28.10.2013 Сообщений: 40
	29.10.2017, 18:54
	Спасибо за информацию 0

@Aimer 2 / 2 / 1 Регистрация: 28.10.2013 Сообщений: 40
	29.10.2017, 19:17
	Спасибо 0

Опции темы