Задача 5: Музей Музей представляет собой 25 квадратных залов в форме квадрата 5×5, схему которого вы можете видеть на картинке ниже.
В каждом зале музея нужно повесить табличку «Продолжение осмотра», которая указывает в один из чётырёх соседних залов. Направление осмотра будем обозначать одной из четырёх букв: «L» (влево), «R» (вправо), «U» (вверх), «D» (вниз), обозначающей, в какой из четырёх соседних залов можно пройти из данного зала.
Утром музей заполняется посетителями, но ввиду ограничений на численность в каждом зале первоначально располагается ровно один человек. После этого посетители музея начинают перемещаться в соседние залы в направлении стрелок.
Для того, чтобы посетители музея как можно больше приобщились к прекрасному, необходимо разместить таблички так, чтобы суммарное число залов, в которых побывает каждый посетитель, было как можно больше. Считается, что посетитель может побывать в каком-либо зале, если он может попасть в этот зал, перемещаясь по стрелкам. Вам необходимо придумать такое размещение табличек. При этом не следует беспокоиться о выходах из музея: если посетителю надоест блуждать по музею, он всегда сможет выйти из него, игнорируя таблички (но уже не осматривая залы).
В ответе запишите план музея — пять строк по пять символов в каждой. Каждый символ — направление обхода из соответствующего зала. Чем больше будет сумма осмотренных залов всеми посетителями музея, тем больше вы получите (для каждого посетителя считается количество осмотренных им залов и берётся сумма по всем посетителям).
Пример записи ответа (не являющегося оптимальным) для музея размера 3×3:
UUD
LLR
RRD
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
Трудолюбивые лошади человеку уже много тысяч лет.
Сельское хозяйство: До изобретения машин человек использовал лошадей для распашки земли, переработки и перевозки урожая.
Война: Степные воины запрягали коней в лёгкие повозки - колесницы. Позже лошади возили на себе свирепых стрелков и рыцарей во время сражений.
Транспорт: Раньше лошади перевозили людей и почту на большие расстояния. Они считались самым быстрым наземным транспортом.
Спорт: К конным видам спорта относят поло, конкур, родео и другие. Также людям нравятся скачки, и они играют на ипподроме, ставя деньги на коня, который, по их мнению, придёт первым.
УдАчИ