Question

Помогите решить задачу в Паскале
z=(min(x,y)+0,5)/(1+max*max(x,y))

Answer 1

Var
X,Y,M:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if X>Y then
Begin
M:=X;
X:=Y
End
else M:=Y;
Write('z = ',(X+0.5)/(1+M*M))
End.

Answer 2

а зачем присвоили x к y? X:=Y

Answer 3

Потому что в X храниться минимальное значение, а в M - максимальное

Answer 4

а, все понял, спасибо