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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.