Определить суммарный объем (в литрах)12-ти вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считайте,что шары вкладываются друг в друга без зазоров. Что добавить,чтобы работало??
часть кода: (Я ввела переменные d-диаметр шара, Pi-число Пи, V-объем, i-стенки шаров 5 мм.)
var
d, V, z, Pi, i : real;
k : integer;
begin
i := 0.5;
d := 10;
Pi := 3.14;
for k := 1 to 12 do
begin
d := d + i;
end
V := Pi * ((d * d * d) / 6);
end
