Var
x,y:real;
begin
Write('Введите координаты x и y точки: '); Readln(x,y);
Write('Точка с указанными координатами ');
if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
Write('не ');
Writeln('принадлежит заштрихованной области.')
end.
<em><u>Примеры выполнения программы:</u></em>
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.
В 2-ной: 1000100001
в 8-ной: 1041
в 16-ной: 221
Таблица с соответствующими данными и диаграммой представлена в приложении к решению.
Для изменения приоритета выполнения математических операций можно использовать круглые скобки