Question

Написать программу на Паскале для нахождения точки с координатами x, y заштрихованной области

Answer 1

Пожалуйста, протестируйте эту задачу !!!!

uses Crt;
  var X,Y: real;
      bol: boolean;
begin
 ClrScr;
 Write(' X = ');  ReadLn(X);
 Write(' Y = ');  ReadLn(Y);
 bol:=(Y>=0) and (Y<=sqrt(9-x*x)) and (Y<=3-X/2);
 if bol=true then Writeln (' Yes!!!')
             else WriteLn (' No...');

 ReadLn;
end.