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

Question

Информатика

Артема

13 января, 02:28

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

+2

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