Написать программу Попадёт ли точка в заданную область

Question

Написать программу Попадёт ли точка в заданную область

---

Comments

я правильно понимаю, что у окружности радиус 1? Следовательно координаты точек это не целые числа?

---

если бы я знал, она такая решайте эту задачу, а как не сказала

---

Программу на Pascal ?

---

да

---

ну так подойти надо было и спросить, "не сказала". Это тебе потом если что по шее получать, поэтому надо беспокоится и добиваться своего.

Answer 1

Var
Begin
  if (x<=0) and (y<=0) and (sqr(x)+sqr(y)<=1) or (sqr(x)+sqr(y)<=1) and (y>=0)         then write('Yes')
  else write ('No');
end.
 

Comments

var x,y:integer

---

Забыла.