Advertisement
gguuppyy

попадает ли точка в заштрихованную область

Sep 27th, 2023
44
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.32 KB | Source Code | 0 0
  1. program ср1;
  2.  
  3. uses
  4.     System.SysUtils;
  5.  
  6. var
  7.     x, y: real;
  8.  
  9. begin
  10.     writeln('Введите X, Y');
  11.     readln(x, y);
  12.     if (x*x + y*y < 9) and (y < x*x) and (x < 3) and (x > -3) then
  13.         writeln('Принадлежит')
  14.     else
  15.         writeln('Не принадлежит');
  16.     readln;
  17.  
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement