Программирование
+3Задача для школы написать программу на АВС Pascalе. помогите пожалуйста.
Здравствуйте.
Помогите пожалуйста написать программу на АВС Pascal.
Условия такие: составить алгоритм и программу, проверяющую, попадает ли введенная точка с координатами (х, у) в заштрихованную фигуру.
Примечание: cчитать, что граница принадлежит фигуре.
Фигура представляет из себя круг (его R=3) с квадратом внутри (=1^2).
Круг заштрихован а квадрат нет .
Заранее спасибо что помогаете мне.
По дате
По рейтингу
var x,y:real;
begin
readln(x,y);
if (abs(x)<3) and (abs(y)<3) and (abs(x)>1) and (abs(y)>1) then writeln('vhodit')
else writeln('ne vhodit')
end.
var x,y:real;
begin
write('x y: '); readln(x,y); writeln((abs(x)>=1)and(abs(y)>=1)and(x*x+y*y<=9))
end.