Даны два вещественных числа X и Y, не одинаковые друг другу.

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

Задать свой вопрос
1 ответ

Паскаль:

var x,y,m,b:real;

begin

write('Введите x, y: ');

readln(x,y);

m:=(x+y)/2;

b:=2*x*y;

if xlt;y then

 begin

 x:=m;

 y:=b

 end

 else

   begin

   x:=b;

   y:=m

   end;

writeln('x=',x,'; y=',y);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт