Даны два реальных числа 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.

Блок-схема во вложении.
Vadik Lisjukevich
Пожалуйста! Давай, настигай))
Nelli Aljavdinova
Ты очень умный ,но я не так,поэтому можно вопрос??
Samarinskaja Tanja
Всегда пожалуйста, слушаю
Анатолий Живияков
m и b -это что???
Рома Сергеичев
Это введены промежные переменные. В m заносим полусумму, а в b - удвоенное творенье.
Геннадий Снитниковский
Ой спасибо тебе огромное еще раз,с меня была бы шоколадка если бы были знакомы))))хорошо,спасибо еще раз))
Николай Бузилов
Хорошо, разрешаю для тебя самой съесть мою шоколадку)))
Ксенев Виталька
аа даже так да?))) можно?))
Ксения Дедухова
Можно)))
Оксана Определенова
ух ты ,круто))
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт