Question

Если произведение чётное наибольшему числу полусумма, наименьшему полуразность. И наоборот.

Answer 1

Ответ:

var

 a, b, pS, pR : double;

begin

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

 readln(a, b);

  pS := (a+b)/2;

 pR := abs(a-b)/2;

 if (trunc(a*b) mod 2= 0) then

   if a > b then begin

     a := pS;

     b := pR;

   end

   else begin

     a := pR;

     b := pS;

   end

 else

   if a < b then begin

     a := pS;

     b := pR;

   end

   else begin

     a := pR;

     b := pS;

   end;

 writeln('a=', a:2:2);

 writeln('b=', b:2:2);

end.