Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите, пожалуйста, с домашним заданием по информатике
БУДУ ОЧЕНЬ ПРИЗНАТЕЛЬНА

Ответ оставил Гость

Var
 x, y: real;
 N: integer;

begin
 read(x,y);
  if y >= 0 then
   if x >= 0 then
     if (x <= 1) and (y <= 1) then
       N := 3
     else
       N := 5
   else
     if (x >= -1) and (y <= 1) then
       N := 1
     else
       N := 5
 else
   if x >= 0 then
     if y - x + 1 >= 0 then
       N := 4
     else
       N := 5
   else
     if sqr(x) + sqr(y) - 1 <= 0 then
       N := 2
     else
       N := 5;
  write(N)
end.