Определить, какая из двух точек а(xa, ya), b (xb, yb) находится ближе к окружности с радиусом r с центром в начале координат. та точка находится ближе к окружности с радиусом r, для которой разность (xi +yi) - r меньше.

Воспользуемся расширенной записью шестнадцатиричного числа в десятичной системе счисления. Тогда
3(a*16²+b*16+c)=b*16²+c*16+a;
767a=208b+13c; 59a=16b+c → a=(16b+c)/59  (1)
Здесь a,b,c - шестнадцатиричные цифры, имеющие десятичный эквивалент от 0 до 15.
Наложим ограничения. a и b не могут быть нулевыми, поскольку с них начинаются числа, а с может быть и нулем. При b=15 и c=15 значение a по формуле (1) не может быть больше (16*15+15)/59, что в целых числах дает 4.
Следовательно, нам надо подобрать такие b и c, чтобы a принимало значения от 1 до 4. Будем подставлять эти значения в (1).
1) При а=1 получаем (16b+c)/59=1 → 16b+c=59.
b=59/16=3 (нацело), c=59-16*3=11. Искомое число 13B₁₆
2) При а=2 получаем (16b+c)/59=2 → 16b+c=118.
b=118/16=7 (нацело), с=118-16*7=6. Искомое число 276₁₆

Аналогичным образом находим два остальных числа: 3B1₁₆ и 4EC₁₆

Замечание. Фактически, мы получаем числа 59х1, 59х2, 59х3, 59х4 и переводим их в шестнадцатиричную систему счисления, поскольку в формуле (1) в скобках записано представление расширенное представление шестнадцатиричного числа.

Итак, для начала разберемся с формулой:

+ bx + c = 0

Возьмем случайные значения

a = 1

b = -11

c = -152

Подставим и получим

x^2 - 11x - 152 = 0

d = 27

x1 = 19

x2 = -8

Теперь подставим всё это в программу:

var

  a,b,c,i,n : integer;

  r1,r2,d       : real;

begin

  i:=0;

  write('Введите колличество повторений: ');

  read(n);

  while i <> n do

     begin

 i:=i+1;

        writeln('Ввод номер ', i, ': ');

 write('a = '); read(a);

 write('b = '); read(b);

 write('c = '); read(c);

 d:=(sqr(b) - (4*a*c));

 if d > 0 then

 begin

    r1:=((-b + sqrt(d)) / (2*a));

    writeln('x1= ', r1:3:2);

    r2:=((-b - sqrt(d)) / (2*a));

    writeln('x2= ', r2:3:2)

 end

     else

 if (d = 0) then

 begin

    writeln('x = ');

    writeln(-b / (2 * a))

 end

     else

 if (d < 0) then

 begin

    writeln('Нет корней')

 end

     end;

end.