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

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)) <br>        or ((x < 0) and (y < 0) and (x + y >= -r)) then
        write('да')
    else
        write('нет');
end.

Comments

не верно у вас, например точка -0.8 -0.1 r=1 (в зону попадает), а у вас нет

---

или вам просто надо чтоб этих if было много? это конечно можно сделать, но смысла никакого, только больше писать придется

---

ну так и есть одно если, этого достаточно. задача правильная

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.

Comments

квадраты в паскале так не пишутся