Помогите решить задачу в Паскале z=(min(x,y)+0,5)/(1+max*max(x,y))
Помогите решить задачу в Паскале
z=(min(x,y)+0,5)/(1+max*max(x,y))
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы