Какое слово скрыто в ребусе платье гиря 24 кг две запятые​

ответ:Плагиат

 вода и молоко не в бутылке

           бут  ст   кувш  бан

мол     0                               

лим                                         

квас                                    

вода    0                              

 сосуд с лимонадом стоит между кувшином и сосудом с квасом

              бут  ст   кувш  бан

мол     0                               

лим                        0                 

квас                       0            

вода    0                              

в банке не лимонад и не вода.

             бут  ст   кувш  бан

мол     0                               

лим                       0       0          

квас                       0            

вода    0                          0

Стакан стоит около банки и сосуда с молоком

         бут  ст   кувш  бан

мол    0    0                  0         

лим                    0       0          

квас                   0            

вода    0                      0

 

 

         бут  ст   кувш  бан

мол    0    0      1       0         

лим                    0       0          

квас                   0            

вода    0            0       0

 

           бут  ст   кувш  бан

мол     0    0      1       0         

лим                    0       0          

квас                   0        1    

вода    0    1      0       0

 =

          бут  ст   кувш  бан

мол     0    0      1       0         

лим     1    0      0       0          

квас     0    0      0        1    

вода    0    1      0       0

лим - бут  вода - стак  мол - кувш  квас  - банка 

 

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

type

 TRAIN = record

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяОтправления: DateTime

 end;

procedure ВводДанных(Список: List<TRAIN>);

begin

 var Поезд: TRAIN;

 var ЧЧММ: string;

 for var i := 1 to 6 do // 6 поездов

 begin

   Println('Ввод данных о поезде', i);

   Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');

   Поезд.НомерПоезда := ReadlnString('Номер поезда:');

   repeat

     ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');

   until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);

   Список.Add(Поезд)

 end

end;

procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);

begin

 var Отобрано:=

     Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);

 if Отобрано.Count>0 then

   foreach var Поезд in Отобрано do

     Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')

 else

   Println('Нет поездов на это направление')

end;

begin

 var Поезда := new List<TRAIN>;

 ВводДанных(Поезда);

 ПоискПоездов(Поезда,ReadlnString('Куда едем?'))

end.