Имеются некоторый вектор {B[k]}^n k=1
Для все элементов вектора В, удовлетворяющих условию
x < Вk < y, найти сумму выражений S[k] , где p, h, x, y – заданные
числа:
S[k]=(pB[k]-hB[k-1])/(pB[k+1]-hB[k])

какой радиус ?

Объяснение:

Диаметр круга рассчитывается по следующим формулам:

Если нам известна длина: Формула для расчета диаметра круга через его длину: D=P/π

Если нам известна площадь: Формула для расчета диаметр круга через площадь: D=2√S/π

Если нам известен диаметр: Формула для расчета диаметр круга через радиус: Например, если радиус окружности равен 4 см, то диаметр окружности составляет 4 см x 2, или 8 см. Если вам известна длина окружности, то, для того чтобы вычислить диаметр, разделите ее на π. Число π равно примерно 3,14; но чтобы получить наиболее точное значение, вам следует воспользоваться калькулятором.=2R.

Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer;
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.