Трехзначное шестнадцатиричное число уменьшается в 2 раза в результате перестановки последней цифры в начало числа. Определите все такие числа. В ответ запишите сумму всех таких чисел в десятичной системе счисления.

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

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

                 Бутылка   Стакан   Кувшин    Банка

Молоко     \   -         \      -      \   +         \    -       \

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

Квас        \    -          \           -   \    -        \   +          \

Вода        \ -            \       +        \    -       \     -        \

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

КОНЕЦ.

Код программы:

var a:array[1..27] of integer;

b, i, c, ind:integer;  

begin

 a[1]:= 72;

 a[2]:= 76;

 a[3]:= 92;

 a[4]:= 45;

 a[5]:= 55;

 a[6]:= 82;

 a[7]:= 46;

 a[8]:= 39;

 a[9]:= 78;

 a[10]:=50;

 a[11]:=34;  

 a[12]:=71;  

 a[13]:=44;

 a[14]:= 92;

 a[15]:= 38;

 a[16]:= 51;

 a[17]:= 6;

 a[18]:= 45;

 a[19]:= 66;

 a[20]:= 78;

 a[21]:= 19;

 a[22]:= 17;

 a[23]:= 42;

 a[24]:= 36;

 a[25]:= 34;

 a[26]:= 91;

 a[27]:= 61;

 writeln('Введите число');

 readln(b);

 if ((b >= 0) and (b <= 100)) then begin

 c:=abs(b - a[1]);

 for i:=2 to 27 do begin

   if(abs(b - a[i]) <=c) then begin

       c:=abs(b - a[i]);

       ind:=i;  

     end;

 end;

 writeln('Результат: ', a[ind]);

 end

 else

   writeln('Ошибка, число должно быть больше 0 и меньше 100');

end.