Два сосуда 1 из которых имеет форму шара радиусом r, другой форму куба с ребром А доверху...

Question

Два сосуда 1 из которых имеет форму шара радиусом r, другой форму куба с ребром А доверху долитом, сравнить кол-во воды в сосудах

Answer 1

Объем шара , объем куба . Необходимо сравнить объёмы двух сосудов.

Код (PascalABC.NET 3.2):
begin
  var A := ReadReal('Введите сторону куба:');
  var r := ReadReal('Введите радиус шара:');
  A := A * A * A;
  r := 4 * pi / 3 * r * r * r;
  if A > r then print('В шарообразном сосуде на', A - r, 'воды больше')
  else if r > A then print('В прямоугольном сосуде на', r  - A, 'воды больше')
  else print('В сосудах одинаковое количество воды');
end.