Помогите пожалуйста, нужно сделать в паскале!
Определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.
Если не затруднит, то еще можно в экселе)
Ответы
Ответ дал:
0
var
r, v: real;
i: integer;
begin
v := 0;
r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
for i := 1 to 12 do
begin
v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05
end;
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.
Тестовое решение:
Суммарный объем равен 26.879 л.
r, v: real;
i: integer;
begin
v := 0;
r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
for i := 1 to 12 do
begin
v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05
end;
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.
Тестовое решение:
Суммарный объем равен 26.879 л.
Приложения:
Ответ дал:
0
Спасибо достаточно выразить кнопочкой, а его величину - числом звездочек. Потому что когда Вы пишете комментарий, его потом приходится модераторам удалять - зачем им лишнюю работу создавать?
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад