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

Question

Информатика

Гаврил

20 апреля, 23:32

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

+4

Ответы (2)

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

Елпидифор · Answer 1

var

x, y : real;

begin

readln (x, y);

if x < y then

begin

x : = (x + y) / 2;

y : = 6 * abs (x - y);

end

else

begin

y : = (y + x) / 2;

x : = 6 * abs (y - x);

end;

writeln (x, ' ', y);

readln;

end.

Малаха · Answer 2

var i, jx, y:longint;

begin

read (x, y):

i:=x;

j:=y

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

end.