1. V = k*I = 50*8 бит = 400
2. i = V/k = 2^10/ 2^6 = 2^4 = 16
var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
Залить в 7 3 +
-ртг89лаблдл