Мосей
6 год назад
Ввести координаты и определить, попадают ли они в закрашенную область
ОТВЕТЫ
Мокий
Jul 4, 2019
Var
x, y: integer;
begin
readln(x, y);
if (x gt; 0) and (ygt;=0) and (ylt;=x) or (xlt;=0) and (ygt;0) and (ylt; -x) then
writeln(Принадлежит)
else
writeln(Не принадлежит);
end.
x, y: integer;
begin
readln(x, y);
if (x gt; 0) and (ygt;=0) and (ylt;=x) or (xlt;=0) and (ygt;0) and (ylt; -x) then
writeln(Принадлежит)
else
writeln(Не принадлежит);
end.
236
Смежные вопросы:
