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

Question

Информатика

Доната

21 декабря, 18:13

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

+2

Ответы (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.