Помогите решить, срочно надо!!
Var x,y:integer;
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln(Принадлежит)
else writeln(Не принадлежит);
end.
Оцени ответ
Var x,y:integer;
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln(Принадлежит)
else writeln(Не принадлежит);
end.