Задача 70256 Написать программу паскаль: Выяснить,...

636e8d16d76a3129d5d1b1b1

11.11.2022 20:59:09

Написать программу паскаль:
Выяснить, принадлежит ли точка с координатами (x,y) пересечения кольца (центр в начале координат, наружный радиус 10, внутренний радиус 1,5) (Центр в точке (a, b), радиус R).

5f282cfba9074b3a3bc0f013

29.03.2023 12:00:26

★

program PointInRing;

var
x, y, a, b: real;
R, r: real;

begin
writeln('Введите координаты точки (x,y):');
readln(x, y);
writeln('Введите координаты центра кольца (a,b):');
readln(a, b);
writeln('Введите внешний радиус кольца:');
readln(R);
writeln('Введите внутренний радиус кольца:');
readln(r);

if (sqr(x - a) + sqr(y - b) >= sqr(r)) and (sqr(x - a) + sqr(y - b) <= sqr(R)) then
writeln('Точка принадлежит кольцу')
else
writeln('Точка не принадлежит кольцу');
end.