Даны два вещественных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их произведения,

Question

Информатика: Даны два вещественных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их произведения, а большее их разностью.

kopnina · Answer

Паскаль: var x,y,m,b:real; begin write( Введите x, y: ); readln(x,y); m:=(x+y)/2; b:=2*x*y; if x y then  begin  x:=m;  y:=b  end  else    begin    x:=b;    y:=m    end; writeln( x= ,x, ; y= ,y); end....

Даны два вещественных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их произведения, а большее их разностью.

Популярные вопросы