Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу в Паскале
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.