Question

Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область. Примеры входные данные 0.5 0.5 выходные данные YES входные данные -0.5 -0.5 выходные данные NO

Answer 1

Var x,y : real;
begin
readln(x,y);
if (x>=0)and(y<=1)and(y>=x-1)or(y<x-1)and(x*x+y*y<=1)
  then writeln('YES')
  else writeln('NO');
end.

Пример:
0.5 0.5
YES