Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.