Question

Составьте программу, которая определяет, принадлежит ли точка с координатами (x, y) одной из указанных областей.
Pascal

Answer 1

Var x,y:real;
begin
readln(x,y);
if (y>=2) and (x*x+y*y>=16) and (x*x+y*y<=36) then
writeln(‘принадлежит’)
else writeln(‘не принадлежит’);
end.

писал с телефона, так что могут быть синтаксические ошибки
но логически программа верная