Х1*(х2+х3)*х1+х2+х1х3 подсказка(использовать надо законы логики)

х1*(х2+х3)*х1+х2+х1*х3

1) x1*x1=x1 (закон повторения). имеем:

х1*(х2+х3)+х2+х1*х3

2) раскрываем скобки:

х1*х2+х1*х3+х2+х1*х3

3) x1*x3+x1*x3=x1*x3 (a+a=a - тот же закон повторения, только для сложения). применяем и имеем:

х1*х2+х1*х3+х2

4) х1*х2+х2=x2 (правило склеивания). имеем:

х2+х1*х3

решено. все законы нетрудно проверить подставляя 0 или 1

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.