[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


помогите..

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. исправте



Знаю верный ответ Найти ответ на вопрос


1 ответ к вопросу “помогите..”

  • ответ #0 / ответил: Служба поддержки

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос