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

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

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

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

Листинг программы

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.

Объяснение кода листинга программы

В начале объявляются переменные x, y, z и min типа real.
Затем происходит чтение трех чисел с помощью функции readln.
Переменная min инициализируется значением первого числа x.
Затем с помощью условного оператора if проверяется, является ли второе число y меньше min. Если это так, то min обновляется значением y.
Далее проверяется, является ли третье число z меньше min. Если это так, то min обновляется значением z.
Если min равно x, то x присваивается значение (z+y)/2.
Если min равно y, то y присваивается значение (z+x)/2.
Если min равно z, то z присваивается значение (x+x)/2.
Наконец, выводится на экран значение x, y и z с пробелами между ними. Ответ: Код выполняет следующие действия:
- Чтение трех чисел с помощью функции readln.
- Инициализация переменной min значением первого числа x.
- Обновление значения min в зависимости от значений y и z.
- Присваивание значения x, y или z переменной min в случае, если min равно одному из этих чисел.
- Вывод на экран значения x, y и z с пробелами между ними.