Program MyCode; var X, Y, Z, Rmin, Rmax : Real; Min, Max : Byte; { будем считать, что X - это 1, Y - это 2, Z - это 3 } begin Write('Введите X = '); ReadLn(X); Write('Введите Y = '); ReadLn(Y); Write('Введите Z = '); ReadLn(Z); if (X < Y)and (X < Z)then Min := 1 if (X > Y)and (Y < Z)then Min := 2 begin else Min := 3; if (X > Y)and (X > Z)then Max := 1 begin else if (X < Y)and (Y > Z)then Max := 2 begin else Max := 3; Rmin := (X + Y + Z) / 2; Rmax := 2 * X * Y * Z; case Min of 1: X := Rmin; 2: Y := Rmin; 3: Z := Rmin; end; case Max of 1: X := Rmax; 2: Y := Rmax; 3: Z := Rmax; end; WriteLn('X = ', X:5:3, ' Y = ', Y:5:3, ' Z = ', Z:5:3); end. исправте
Знаю верный ответ Найти ответ на вопрос
нормально
Ответить