Помогите, пожалуйста. срочно

0 голосов
33 просмотров

Помогите, пожалуйста. срочно


image

Информатика (14 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

Var
  x, y: integer;

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

begin
  readln(x, y);
  if (sqrt(sqr(x) + sqr(y)) <= 1) then<br>    writeln('yes')
  else
    if (x in [0..1]) then
      if (y in [0..1]) then
        writeln('yes')
      else
        writeln('no')
    else
      writeln('no');
end.

(103 баллов)