Question

Pascal.Нужно написать программу на языке Pascal.

Answer 1

Var a,x: real;

Begin

readln(a,x);

If x>0 Then

write('y = ',sqrt(x*x+a*a))

Else

write('y = ',sqrt(x*x-a*a));

End.