Регистрация Спросить otvet5GPT
viktorija0811
21.02.2020 14:41
Информатика
Есть ответ 👍

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.

146
275
Посмотреть ответы 2

Ответы на вопрос:

Vinner0508
Vinner0508
4,7(40 оценок)

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.

Босс05
Босс05
4,7(97 оценок)
1) 19(10) -  10011(2) 2) 86(10) -  1010110(2)3) 177(10) -  10110001(2)4) 345(10) -  101011001(2) для числа [19]ход решения: делим число на 2 и выписываем остатки 19 = 9·2 + 1 9 = 4·2 + 1 4 = 2·2 + 0 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 10011 для числа [86] ход решения: делим число на 2 и выписываем остатки 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 1010110 для числа [177] ход решения: делим число на 2 и выписываем остатки 177 = 88·2 + 1 88 = 44·2 + 0 44 = 22·2 + 0 22 = 11·2 + 0 11 = 5·2 + 1 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 10110001 для числа [345] ход решения: делим число на 2 и выписываем остатки 345 = 172·2 + 1 172 = 86·2 + 0 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 101011001

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS