Question

выручайте!! все что выделено красным, паскаль или бейсик СРОЧНО!!

638d2008dfab6928ea449b75e7a807e5.doc

Answer 1

program 2;
var x1,x2,y1,y2:integer;
begin
write ('Задайте координату для x1: ');
readln (x1);
write ('Задайте координату для y1: ');
readln (y1);
if (x1>5) and (x1<1) and (y1<1) and (y1>5) and (sqrt(sqr(x1+2)+sqr(y1+2)<=1)) then writeln ('Точка с координатами: ',x1,', ',y1,' - не входит в заштрихованную область') else writeln ('Точка с координатами: ',x1,', ',y1,' - входит в заштрихованную область') {Условие для проверки}
end.