Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли...

Question

Для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами х,у заштрихованной области

---

Comments

Паскаль?

---

Да

---

Помогите пожалуйста

Answer 1

Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо')
End.

Comments

Спасибо большое