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

Формулировка задачи:

Если сумма трех попарно различных действительных чисел x, y и z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений.


textual

Код к задаче: «Меньшее из трех чисел заменить полусуммой двух других - Pascal ABC»

var x,y,z, min: real;
 
begin
readln(x,y,z);
 
min:=x;
if y<min then min:=y;
if z< min then min:=z;
if min=x then x:=(z+y)/2;
if min=y then y:=(z+x)/2;
if min=z then z:=(x+x)/2;
writeln(x, ' ', y, ' ',z);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.000 из 5

Источник
Похожие ответы