Question

(Pascal) Задать координаты точки и вывести, принадлежит ли точка заштрихованной (желтой) области или нет.

Answer 1

var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
 then writeln('Точка принадлежит заштрихованной области')
 else writeln('Точка не принадлежит заштрихованной области');
end.