PascalABC.NET
begin
var (x, y) := ReadReal2('Введи координаты точки:');
if x.InRange(-2, 6) and y.InRange(-2, 6) and
not ((x * x + y * y <= 2) or
((x * x + y * y >= 4) and ((x * x + y * y <= 6) and
((x > 0) and (y < 0 then
Print('Попадает')
else
Print('Не попадает')
end.
Лишние словосочетание выделено жирным шрифтом :
а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.
б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.
в. Формирование у пользователей компьютера навыков печати десятипалым методом.
г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.
const
a = 10;
b = 6;
R = 8;
var
x, y : real;
begin
readln(x, y);
if // Верхняя заштрихованная область
(((x>=0) and (x=<a)) and ((y>=0) and (y<=b)) and (sqr(x)+sqr(y)>=sqr(R)))
or
// Нижняя заштрихованная область
((x<=0) and ((y<=0) and (y>=-b)) and (sqr(x)+sqr(y)<=sqr(R)))
then writeln('Да')
else writeln('Нет');
end.
Объяснение:
попробуй вот так, извини если не получилось