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

Найти (х;y) принадлежащие заданной области. В паскале. Помогите пожалуйста

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

1) (Где полукруг)
var
 x, y:integer;
begin
 readln(x, y);
 if (x>=0) AND (x*x + y*y >= 9) AND (x*x + y*y <= 25) then
  writeln((,x,;,y,) - принадлежат заданной области)
 else
  writeln((,x,;,y,) - не принадлежат заданной области)
end.