Составить программу(паскаль), проверяющую принадлежность точки заштрихованной области с выводом соответствующего результата на экран. Координаты точки вводятся с клавиатуры
Var x,y : real; begin write('x = '); readln(x); write('y = '); readln(y); if (x*x+y*y<=6*6)and((x<=0)or(y<=0)) then writeln('Да') else writeln('Нет') end.
Answers & Comments
Verified answer
Var x,y : real;begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = -3
y = 3
Да