Question

Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область. Формат ввода Входная строка содержит два вещественных числа – координаты точки на плоскости (сначала x -координата, затем – y -координата). Формат вывода Программа должна вывести слово 'YES', если точка попала в заштрихованную область, и слово 'NO', если не попала. Примеры: Ввод -0.5 и 0.5 вывод YES Ввод -2 и 2 вывод NO Ввод 0.5 и -0.5 вывод NOPascal 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.