Даны числа А,В, и С .Наименьшее из их заменить полусуммой 2-ух

Даны числа А,В, и С .
Меньшее из них заменить полусуммой 2-ух других

Задать свой вопрос
1 ответ
var
  a, b, c: real;

begin
  readln(a, b, c);
  if (min(a, min(b, c)) = a) then
    a := (b + c) / 2
  else
    if (min(a, min(b, c)) = b) then
      b := (a + c) / 2
    else
      if (min(a, min(b, c)) = c) then
        c := (b + a) / 2;
  writeln(a, ' ', b, ' ', c);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт