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

Question

Информатика

Митюха

9 января, 22:41

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

+5

Ответы (1)

Знаешь ответ?

Митюля · 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.