Question

Напишите программу, которая вводит с клавиатуры целое число х – координату точки на числовой прямой и проверяет, принадлежит ли введенное число х заштрихованной области (Паскаль)

Answer 1

Ответ:

var r1,r2,x,y:real;

begin

repeat

writeln('Введите радиус внутренней и внешней окружностей 0<r1<r2');//вводим радиусы поскольку он не задан на картинке

readln(r1,r2);

until (r1>0)and(r2>r1);

writeln('Введите координаты точки x,y');

readln(x,y);

if (x*y>=0)and(x*x+y*y>=r1*r1)and(x*x+y*y<=r2*r2) then //1 или 3 четверть и в кольце

write('Точка попадает в область') else write('Точка не попадает в область')

end.