Ответы и объяснения

  • Sky09
  • профессор
2014-03-15T08:13:18+00:00
Uses crt;
var x,y: real;
begin
     write('Введите координаты: ');
     read(x,y);
     writeln;
     if (abs(x)>1) or (abs(y)>1) then write('l=0')
     else
         if sqr(x)+sqr(y)>1 then write('l=1')
         else
             if abs(y)>1-abs(x) then write('l=2')
             else write('l=3');
end.