Question

Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область.

Answer 1

Program z1;
var x, y: real;
begin
if ((x*x+y*y<=1) and (y>=x)) or ((x*x+y*y<=1) and (x<=0)) then writeln('принадлежит') 
else writeln('не принадлежит');
end.