Составьте программу для паскаля по графикам y=-x y=x y=1 ПОМОГИТЕ СРОЧНО

Question

Составьте программу для паскаля по графикам y=-x y=x y=1 ПОМОГИТЕ СРОЧНО

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)<br>  then writeln('YES')
  else writeln('NO')
end.

Пример:
x = 0.5
y = 0.3
NO

Comments

Cпаситель!Спасибо огромное

---

Пожалуйста. Пользуйтесь кнопочкой "Спасибо".