Задать вопрос
6 апреля, 20:35

Даны числа А, В, и С.

Меньшее из них заменить полусуммой двух других

+5
Ответы (1)
  1. 6 апреля, 21:06
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны числа А, В, и С. Меньшее из них заменить полусуммой двух других ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы