Var x, y: real; begin readln(x, y); if (y>=0) and (y<=sinx) and (x>=1-y) and (x<=Pi) then<br> writeln('принадлежит') else writeln('не принадлежит'); readln; end.
Const pi=3.14;var x,y,y1,y2:real;beginreadln(x,y);y1:=-x+1;y2:= sin(x);if (y1>=0) and (x>=1) thenif (y2<=1) and (x<=pi) then writeln('Принадлежит')else writeln('Не принадлежит')else writeln('Не принадлежит');end.<br>
const pi=3.14; var x,y:real; begin readln(x,y); if (x>1) and (xif (y>0) and (y<1) then writeln(' Принадлежит')<br>else writeln('Не принадлежит') else writeln('Не принадлежит'); end.
Но тут синусоида, с ней надо
Изменил решение. Взгляни.
Только не x+1, а 1+x. А так, спасибо)
Только там -x+1
Воу, незаметно было, извиняюсь. -x+1 и x+1 все равно одинаковые графики, так что,