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

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

Задать свой вопрос
1 ответ
Var
  x, y: integer;

begin
  readln(x, y);
  if ((sqrt(sqr(x) + sqr(y)) lt;= 1) or ((x in [0..1]) and (y in [0..1]))) then
    writeln('yes')
  else
    writeln('no');
end.
--------------------------
var
  x, y: integer;

begin
  readln(x, y);
  if (sqrt(sqr(x) + sqr(y)) lt;= 1) then
    writeln('yes')
  else
    if (x in [0..1]) then
      if (y in [0..1]) then
        writeln('yes')
      else
        writeln('no')
    else
      writeln('no');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт