Вбутылке, стакане, кувшине и банке находится молоко, лимонад, квас и вода. известно что вода и молоко не в бутылке, а сосуд с лимонадом находится между кувшином и сосудом с квасом, в банке - не лимонад и не вода. стакан находится около банки и сосуда с молоком. как распределены эти жидкости по ?

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

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

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

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

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

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

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

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

конец.

 

 

 

 

  program n_1;   uses crt; var i,r,n: integer; begin  readln(n);   r: =1;   for i: =1 to n do  //цикл for  r: =r*i;   writeln('for: ',r);   i: =1;   r: =1;   while i< =n do      //цикл while  begin    r: =r*i;     inc(i);   end;   writeln('while: ',r);   i: =1;   r: =1;   repeat                //цикл repeat    r: =r*i;   inc(i);   until i> n;   writeln('repeat: ',r); end.

Var a,b,c: int64;     i,j,k,n,m,r,p,s: integer; begin   for i: =1 to 9 do     // буква х   for j: =1 to 9 do     // буква г   for k: =1 to 9 do     // буква т   for n: =0 to 9 do     // буква о   for m: =0 to 9 do     // буква с   for r: =0 to 9 do     // буква у   begin     p: =k*k mod 10;     a: =i*10000+p*1000+r*100+m*10+k;     b: =j*100000+p*10000+n*1000+i*100+n*10+k;     c: =p;     for s: =1 to 10 do c: =c*10+p;     if a*b=c then     begin       writeln('хруст = ',a);       writeln('грохот = ',b);       writeln(' = ',c);     end;     end; end.хруст = 21649 грохот = 513239 = 11111111111