Question

Определить попадает ли точка в заданный диапазон. Написать программу.Pascal

Answer 1

Var
    x, y, r: real;

begin
    read(x, y, r);
    if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
        or ((x < 0) and (y < 0) and (x + y >= -r)) then
        write('да')
    else
        write('нет');
end.

Answer 2

Var x,y,r:real;
begin
read(x,y,r);
if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('попадает') else write('нет');
end.