Question

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

Answer 1

Var
  x, y: real;

begin
  readln(x, y);
  if (x * x + y * y <= 36) and (x >= 2) then
    writeln('True')
  else
    writeln('False');
end.

Answer 2

Var
   x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
WriteLn((x*x+y*y<=36)and(x>=2));
End.



Примеры работы программы:

x = 3
y = 4
True

x = 5
y = 5
False