Задача
Если сумма трех попарно различно действительных чисел x,y,z меньше единицы то наименьшее из этих трех чисел заменить полу суммой двух других в противном случае заменить меньшее из x y полу суммой двух оставшихся значений
Код
Program xxx;
Var
a,x,y,z:real;
begin
writeln(‘Введите значение x y z ‘);
readln(x,y,z);
a:=x+y+z;
if (a<1) then
if (x<y) and (x<z) then x:=y+z/2;
if (y<x) and (y<z) then y:=x+z/2;
if (z<y) and (y<x) then z:=y+x/2
else
if (x<y) and (x<z) then x:=y+z/2;
if (y<z) and (y<z) then y:=x+z/2;
writeln(x);
writeln(y);
writeln(z);
end.
Что в коде неправильно?
