даны действительные числа х и у не равные друг другу.меньшее из этих двух чисел заменить...

Question

даны действительные числа х и у не равные друг другу.меньшее из этих двух чисел заменить половиной их суммы,в большее-их удвоенным произведением

Answer 1

Program abc;

uses crt;

var x,y:real;

begin

clrscr;

readln(x,y);

if x

begin

x:=(x+y)/2;

y:=2*x*y;

end

else

begin

y:=(x+y)/2;

x:=2*x*y;

end;

writeln('x=',x,' y=',y);

end.