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

+ 0 -

AlExAnDrA2123

23 янв. 2017 г., 14:48:19 (7 лет назад)

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.

+ 0 -

Nikalex991

23 янв. 2017 г., 16:23:58 (7 лет назад)

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.