Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.