Даны действительные числа x, y. меньшее из этих двух чисел заменить их среднеарифметическим, а большее их удвоенным произведением. разработать алгоритм решения
Var x,y,a:real; Begin Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); if x>y then Begin a:=x; x:=2*x*y; y:=(a+y)/2; End else Begin a:=y; y:=2*x*y; x:=(x+a)/2; End; WriteLn; WriteLn('x = ',x); WriteLn('y = ',y); End.
x,y,a:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if x>y then
Begin
a:=x;
x:=2*x*y;
y:=(a+y)/2;
End
else
Begin
a:=y;
y:=2*x*y;
x:=(x+a)/2;
End;
WriteLn;
WriteLn('x = ',x);
WriteLn('y = ',y);
End.