Сделайте пожалуйста под (и)

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

Сделайте пожалуйста под (и)


image

Информатика (37 баллов) | 27 просмотров
Дан 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.

(16.9k баллов)