Даны два действительных различных числа х и у. Заменить меньшее из этих двух чисел и полусуммой,а большее их утроенной полуразность?
Даны два действительных различных числа х и у. Заменить меньшее из этих двух чисел и полусуммой,а большее их утроенной полуразность?
Гость
Ответ(ы) на вопрос:
Гостьvar i,jx,y:longint; begin read(x,y): i:=x; j:=y if x
Гость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.
Не нашли ответ?
Похожие вопросы