Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a, x, y : Real;
- begin
- Read(a, x, y);
- if ((y <= 0) and (Sqr(x) + Sqr(y) <= Sqr(a)))
- or ((y >= 0) and (-2*Abs(x) + 2*a >= y)) then
- Write('Принадлежит')
- else Write('Введите другие значения');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement