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

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

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

Var x,y:real;
begin
write(X=);
read(x);
write(Y=);
read(y);
if (x>0) and (y>0) and (sqr(x)+sqr(y)<=16) or (x>0) and (y<0) and (sqr(x)+sqr(y)<=25) then writeln(Точка (,x,,,y,) принаджелит данной области)
else writeln(Точка (,x,,,y, не принаджелит данной области);
end.