помогите, пожалуйста, буду очень признательна

Помогите, пожалуйста, буду очень признательна

Задать свой вопрос
1 ответ
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*ygt;0)and(ylt;=-x+6)and(ygt;=-x-6)
  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = 2
y = 2
Да
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт