Question

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

Answer 1

Program XY5;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(47) end;

 writeln;writeln;

 writeln('Введите координаты точки:');

 write('X='); readln(x);

 write('Y='); readln(y);

 if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.