Определить принадлежит ли точка А с координатами х, у к первой координатной четверти
Answers & Comments
DmitryINF
Var x,y:integer; begin readln(x,y); if (x>0) and (y>0) then writeln('Принадлежит к первой координатной четверти') else writeln('Не принадлежит к первой координатной четверти'); end.
Answers & Comments
x,y:integer;
begin
readln(x,y);
if (x>0) and (y>0) then
writeln('Принадлежит к первой координатной четверти')
else
writeln('Не принадлежит к первой координатной четверти');
end.