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

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

11

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

программу*

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

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

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