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

Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x,y заштрихованной части плоскости график (к)

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

// PascalABC.NET 3.0, сборка 1088
var
  x,y,t:real;
begin
  Write(Введите через пробел координаты точки :);
  Read(x,y);
  t:=abs(x);
  if t<1 then
    if y>=t then Writeln(Попадает)
    else Writeln(Не попадает)
  else
    if y>=1 then Writeln(Попадает)
    else Writeln(Не попадает)
end.