PascalABC.NET:
[any] Pascal
Поделитесь своими знаниями, ответьте на вопрос:
Задать с условного оператора следующие действия: большее из двух заданных чисел уменьшить на 5.
PascalABC.NET:
### var (x, y) := RR2; if x>y then x-=5 else if y>x then y-=5; Print(x, y)[any] Pascal
var x, y: real; begin read(x, y); if x>y then x := x - 5 else if y>x then y := y - 5; write(x, ' ', y) end.