Ответы
Ответ дал:
0
Var x,y: real;
Begin
readln (x,y);
if (y>=-x+5)and(y>=x-3)and(y<=-x+11)and(y<=x+3)
then writeln('YES')
else writeln('NO')
End.
Пример:
2 2
NO
Begin
readln (x,y);
if (y>=-x+5)and(y>=x-3)and(y<=-x+11)and(y<=x+3)
then writeln('YES')
else writeln('NO')
End.
Пример:
2 2
NO
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад