Помогите пожалуйста, необходимо сделать в паскале!Определить суммарный объем в литрах 12

Помогите пожалуйста, нужно сделать в паскале!
Найти суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.

Если не сделает труднее, то еще можно в экселе)

Задать свой вопрос
1 ответ
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 л.


Вадим Коташвили
Большое спасибо!
Алексей Снолохов
Спасибо довольно выразить кнопкой, а его величину - числом звездочек. Потому что когда Вы пишете комментарий, его позже приходится модерам устранять - зачем им лишнюю работу создавать?
Golovenchenko Alena
хорошо, буду знать
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт