Question

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

Формат ввода
Входная строка содержит два вещественных числа – координаты точки на плоскости (сначала x -координата, затем – y -координата).

Формат вывода
Программа должна вывести слово 'YES', если точка попала в заштрихованную область, и слово 'NO', если не попала.
Примеры:
Ввод -0.5 и 0.5 вывод YES
Ввод -2 и 2 вывод NO
Ввод 0.5 и -0.5 вывод NO

Pascal abc.net 

Answer 1

program llllllllll;
var x, y :real;
begin
    writeln('Введите x');
    readln(x);
    writeln('Введите y');
    readln(y);
    if
        ((x*x+y*y<=1) and (y>=x)) or ((x*x+y*y<=1) and (x<=0))
    then writeln('YES')
    else
        writeln('NO')
end.