Решите плиткипри проведении ремонта в квартире дизайнер предложил выложить стену узоромиз квадратных плиток, повернув их на 45°. длина диагонали квадрата равна 2 дм.2 дмстена, которую необходимо покрыть плиткой, имеет размеры пхт дм, при этомчисла пит – целые чётные. для покрытия такой стены необходимо какое-то количествоцелых квадратных плиток, а также несколько треугольных обрезков плитки. на рисункена следующей странице пример покрытия плиткой стены размером 4х6 дм, при этом было использовано 8 целых квадратных плиток.по данным размерам стены пит дм определите, какое число целых квадратныхплиток будет содержать такой узор.ответом на эту является некоторое выражение, которое может содержатьцелые числа, переменные пит (записываемые буквами), операции сложения(обозначаются «+»), вычитания (обозначаются «»), умножения (обозначаются «*»), деления(обозначаются «v») и круглые скобки для изменения порядка действий. запись вида «2» дляобозначения произведения числа 2 и переменной пневерная, нужно писать «2 * п».ваше выражение должно давать правильный ответ для любых чётных значенийпит, например, для n = 4 и т = 6 значение выражения должно быть равно 8.пример правильной формы записи ответа.m / 2 + (m * n – m) * 2​

ответ:m*n/2

Объяснение:

program z_1;

var

 a, b: array [1..3] of Integer;

 i, imax, btmp: Integer;

 ine: boolean;

Begin

 for i := 1 to 3 do begin

   Read (a [i]);

   b [i] := 0;

 end;

 ine := False;

 for i := 1 to 3 do begin

   if a [i] mod 3 = 0 then begin

     b [i] := a [i];

     Ine := True;

   end else

     b [i] := 0;

 end;

 if ine then begin

   imax := 1;

   for i := 2 to 3 do

     if b [i] > b [imax] then

       imax := i;

   btmp := b [imax];

   b [imax] := b [1];

   b [1] := btmp;

   if b [2] < b [3] then begin

     btmp := b [2];

     b [2] := b [3];

     b [3] := btmp;

   end;

   WriteLn;

   for i := 1 to 3 do

     if b [i] <> 0 then

       Write (b [i], ' ');

 end else

   WriteLn ('Значений нет.');

 ReadLn;

 ReadLn;

end.

program z_1;

var

 a, b, c, k, t: integer;

begin

 k := 3;

 Read(a, b, c);

 if Abs(a) mod 3 <> 0 then

   k := 2;  

 if Abs(b) mod 3 = 0 then

 begin

   if k = 2 then

     a := b

 end

 else

   Dec(k);

 if Abs(c) mod 3 = 0 then

 begin

   if k = 1 then

     a := c

   else if k = 2 then

     b := c;

 end

 else

   Dec(k);

 case k of  

   0: Write('Значений нет');

   1: Write(a);

   else

   begin

     if b > a then

     begin

       t := a;

       a := b;

       b := t;

     end;

     if k = 3 then

     begin

       if c > b then

       begin

         t := b;

         b := c;

         c := t;

       end;

       if b > a then

       begin

         t := a;

         a := b;

         b := t;

       end;

       Write(a, ' ', b, ' ', c);

     end

     else

       Write(a, ' ', b);

   end;

 end

end.

Если отрицательными числа быть не могут, можно Abs( ) убрать