Question

Pascal abc. В некоторой гостинице для имеются K1, K2, K3-местные номера (от 1 до 4 меств номере). На каждом этаже типы номеров чередуются:1) первая комната - K1-местный номер;2) вторая комната - K2-местный номер;3) третья комната - K3-местный номер;4) четвертая комната - K1-местный номер;5) пятая комната - K2-местный номер;6) шестая комната - K3-местный номер и т. д.Количество комнат N на этаже гостиницы кратно 3, то есть N равно 6, 9, 12 и т. д. Всистеме управления занятыми местами каждой комнате соответствует элемент массива А,в котором записано количество занятых мест. НапримерN = 9, K1 = 2, K2 = 4, K3 = 3.Заселение 9 номеров на одном из этажейA[1]=2 (свободных мест в двухместном номере нет);A[2]=1 (три места в четырехместном номере свободны);A[3]=0 (все три места в трехместном номере свободны);A[4]=1 (одно место в двухместном номере свободно);A[5]=3 (одно место в четырехместном номере свободно);A[6]=2 (одно место в трехместном номере свободно);A[7]=0 (все места в двухместном номере свободны);A[8]=4 (все места в четырехместном номере заняты);A[9]=3 (все места в трехместном номере заняты);Левое крыло комнаты с номерами 1, 2, 3, 4.Правое крыло комнаты с номерами 6, 7, 8, 9.Комната с номером 5 посередине.Найти номера двух соседних комнат в которых не менее К свободных мест на всем этаже. Если таких комнат нет, то вывести 0, если есть, то вывести номера этих комнат.Например, если К=6, то номерамисоседних комнат с общим количеством свободных мест в соседних номерах будут 2 и 3.

Answer 1

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('N = ');

readln(n);

if ((n mod 3 = 0) and (n<>0)) then begin

write('K1 = ');

readln(k1);

write('K2 = ');

readln(k2);

write('K3 = ');

readln(k3);

setlength(a,n);

for i:=0 to n-1 do begin

write('Заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i:=0;

while (i<n) do

begin

a[i]:=k1-a[i];

a[i+1]:=k2-a[i+1];

a[i+2]:=k3-a[i+2];

inc(i,3);

end;

write('K = ');

readln(k);

for i:=0 to n-2 do

if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;

if (bb=false) then writeln(0);

end else writeln('Введите число кратное 3 и неравное 0');

readln;

end.

Answer 2

Для решения этой задачи, вам нужно пройти по каждому этажу гостиницы, вычислить количество свободных мест в соседних комнатах и проверить, удовлетворяет ли это условию К. Если такие комнаты найдены, вы выводите их номера. Если таких комнат нет, вы выводите 0.

Вот Python-код, который решает эту задачу:

pythonCopy code
def find_adjacent_rooms_with_min_free_seats(N, K1, K2, K3, A, K):
    for floor in range(1, N // 3 + 1):
        # Вычисляем номера комнат на текущем этаже
        room1 = (floor - 1) * 3 + 1
        room2 = (floor - 1) * 3 + 2
        room3 = (floor - 1) * 3 + 3

        # Вычисляем количество свободных мест в соседних комнатах
        free_seats_in_room1 = K1 - A[room1]
        free_seats_in_room2 = K2 - A[room2]
        free_seats_in_room3 = K3 - A[room3]

        # Проверяем, удовлетворяет ли условию К
        if free_seats_in_room1 >= K and free_seats_in_room2 >= K:
            return room1, room2
        elif free_seats_in_room2 >= K and free_seats_in_room3 >= K:
            return room2, room3

    # Если такие комнаты не найдены, возвращаем 0
    return 0

# Пример использования
N = 9
K1 = 2
K2 = 4
K3 = 3
A = [2, 1, 0, 1, 3, 2, 0, 4, 3]
K = 6

result = find_adjacent_rooms_with_min_free_seats(N, K1, K2, K3, A, K)
print(result)  # Выведет (2, 3) для этого примера

Этот код определит номера двух соседних комнат с не менее чем K свободных мест на всем этаже или вернет 0, если таких комнат нет.