Question

Найти (х;y) принадлежащие заданной области. В паскале. Помогите пожалуйста

Answer 1

Var x,y:real;
begin
write('X=');
read(x);
write('Y=');
read(y);
if (x>0) and (y>0) and (sqr(x)+sqr(y)<=16) or (x>0) and (y<0) and (sqr(x)+sqr(y)<=25) then writeln('Точка (',x,',',y,') принаджелит данной области')
else writeln('Точка (',x,',',y,' не принаджелит данной области');
end.