Advertisement
gamezovladislav

Untitled

Dec 19th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.23 KB | None | 0 0
  1. var
  2. a, x, y : Real;
  3. begin
  4. Read(a, x, y);
  5. if ((y <= 0) and (Sqr(x) + Sqr(y) <= Sqr(a)))
  6. or ((y >= 0) and (-2*Abs(x) + 2*a >= y)) then
  7. Write('Принадлежит')
  8. else Write('Введите другие значения');
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement