Соединим заданные точки и получим отрезок, длина которого равна радиусу окружности. Длина этого отрезка вычисляется по известному выражению r² = (x₂-x₁)²+(y₂-y₁)²
Затем находим площадь круга S=πr² и длину окружности C=2πr
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x1,y1):=ReadReal2('Координаты центра x1 и y1:');
var (x2,y2):=ReadReal2('Координаты точки на окружности x2 и y2:');
var r:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
var (S,C):=(Pi*r*r,2*Pi*r);
Writeln('S=',S,', C=',C)
end.
<u>Пример</u>
Координаты центра x1 и y1: 3 3.5
Координаты точки на окружности x2 и y2: 1.7 -2.8
S=129.999104005546, C=40.4180271718983
N = 167(8) = <span>119(10)
M = 79(16) = </span>121(10)
K=120(10) -> 1111<span>000(2)
Ответ - 4.
</span>