GunWoman
Program yoyo; uses crt; var x,y:real; begin writeln('введите координату точки через пробел: '); readln(x,y); if((x*x+y*y)<1) or (y<1)and(x<1)and(x>0)and(y>0) then writeln('точка находится в области ') else writeln ('точка нe находится в области '); end.
Answers & Comments
uses crt;
var x,y:real;
begin
writeln('введите координату точки через пробел: ');
readln(x,y);
if((x*x+y*y)<1) or (y<1)and(x<1)and(x>0)and(y>0)
then writeln('точка находится в области ')
else writeln ('точка нe находится в области ');
end.