Длина двоичного кода который используется для кодирования цвета пикселя

Длина двоичного кода, который используется для кодирования цвета пикселя - два бита.

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

  получается так в 1 действии: кувшин с молоком, бутылка с лимонадом, банка с квасом и стакан с водой.

                                бутылка    стакан    кувшин      банка

молоко      \   -                \          -         \    +               \      -           \

лимонад  \            +         \          -             \   -                 \      -         \

квас              \      -                 \                    -   \      -             \    +                 \

вода              \ -                      \            +             \      -           \        -             \

ответ: молоко в кувшине, лимонад в бутылке, квас в банке, вода в стакане.

конец.

 

 

 

 

var

  t : string;

  f : text;

  i, k : integer;

begin

  assign(f, 'file.txt');

// создаем файл

  rewrite(f);

  repeat

    write('вводим строку(окончание ввода "~"): ');

    readln(s);

    writeln(f, s)

  until t = '~';

  close(f);

  writeln('нажмите ');

  readln;

  // считаем символы

  reset(f);

  k : = 0;

  while not eof(f) do

  begin

    readln(f, t);

    for i : = 1 to length(s) do inc(k)      

  end;

  close(f);

  writeln('символов в файле: ', k)

end.