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

Question

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

Answer 1

var i,jx,y:longint;

begin

read(x,y):

i:=x;

j:=y

if x

if y

writeln(x,' ',y);

end.

Answer 2

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.