Написать программу, определяющую, принадлежит ли точка с координатами (x, y) кольцу с центром (x0, y0). R1 и r2 соответственно радиусы внутренней и внешней окружностей, образующих кольцо.

Question

Информатика

Борюля

19 апреля, 06:03

Написать программу, определяющую, принадлежит ли точка с координатами (x, y) кольцу с центром (x0, y0). R1 и r2 соответственно радиусы внутренней и внешней окружностей, образующих кольцо.

+5

Ответы (1)

Знаете ответ на вопрос?

Борис · Answer 1

Var x, y, r1, r2:real;

begin

write ('Введите x, y, внутренний радиус, внешний радиус: ') ;

readln (x, y, r1, r2) ;

if (x*x+y*y=r1*r1) then

writeln ('Да, принадлежит')

else writeln ('Нет, не принадлежит') ;

end.