Question

Составить программу, по которой выведется значение true, если точка с заданными координатами (x,y) лежит внутри заштрихованной области и false – в противном случае.

Answer 1

var
  r :integer;
  x, y :real;

begin

  R:= 6;
  readln(x,y);
  if (x > 0) and (y > 0) = false then
    if sqr(x) + sqr(y) < sqr(r) then
      writeln('true')
    else
      writeln('false');
  if (x > 0) and (y > 0) = true then
    writeln('false');

end.

Answer 2

var
  x,y:integer;
  f:boolean;
begin
readln(x,y);
f:=false;
if sqr(x)+sqr(y)<36 then f:=true;
if (x>0) and (y>0) then f:=false;
writeln('Ответ: ',f)
end.