Решите плиз до завтра очень надопрограмму для Pascal

Question

Решите плиз до завтра очень надо
программу для Pascal

---

Comments

Ого,ну и задание....Какой класс интересно?

---

11

---

Я в 9,не смогу помочь..Мы даже не учили как писать прогармму

---

программу*

---

мы с 8 учили, как писать программу

---

У нас постоянно учителя меняются по информ. и практику толком не проходим,в конце 8 создавали самый простой сайт в блокноте с тегами и всё.

Answer 1

Var x,y: real;
begin
read(x,y);
write('Область 4: ');
if (y >= 1 - x) and (y >= 0) and (y <= sin(x)) and (x <= 4*arctan(1))<br>  then writeln('принадлежит')
  else writeln('не принадлежит');
write('Область 5: ');
if (y >= sqr(x) - 2) and (y <= abs(x))<br>  then writeln('принадлежит')
  else writeln('не принадлежит');
end.