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

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

Question

Информатика

Лаврюся

4 февраля, 15:40

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Апа · Answer 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.

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

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

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