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
Точка с указанными координатами не принадлежит заштрихованной области.
<em>1)</em> <em>Домашняя библиотека
</em>Номер - <em>счётчик</em>
Автор, Название - <em>текстовый</em>
Год, Полка - <em>числовой</em>
<em>2) </em><em>Погода
</em>День, Температура, Давление, Влажность - <em>числовой</em>
Осадки - <em>текстовый</em>
<em>3) </em><em></em><em>Школы
</em>Город, Директор, Адрес - <em>текстовый</em>
Номер, Телефон - <em>числовой</em>
...............................................................
Возможно, работа в командной строке cmd
Ответ:
104сек
Объяснение:
вгчгэ1жязйжсг руд ш3сщ4рм93