Условный оператор Опции

[cxt]

Помогите, пожалуйста, решить задачу.

Задача
Если сумма трех попарно различно действительных чисел 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.

Что в коде неправильно?

Сообщение отредактировано: cxt - 19.03.2005 19:06