Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3. составьте программу, которая вычисляет: а) давление столба жидкости на дно сосудов p=dgh(g=9.8м/с); б) массу жидкости в каждом сосуде m=dv=dhs(s=3.14 r2

program task31101745; const  d = 1200;  g = 10; var  h, R: real; begin  Writeln('ВВЕДИТЕ ВЫСОТУ СТОЛБА ЖИДКОСТИ (h) И РАДИУС СТОЛБА (r): ');  Readln(h, R);  Writeln('ДАВЛЕНИЕ = ', d * g * h, ', МАССА ЖИДКОСТИ: ', d * h * Pi * Power(R, 2)); end.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ArrRandomReal(15,-10,10); a.Println; Writeln;
  var m:=a.IndexMax;
  var n:=a.IndexMin;
  if m>n then (m,n):=(n,m);
  var b:=a[m+1:n]; b.Println;
  if b.Length>0 then Writeln('П=',b.Aggregate(1.0,(p,x)->p*x))
  else Writeln('Нет элементов между минимумом и максимумом')
end.

Тестовое решение:
8.14904220316049 -7.97861530351388 6.22268662612079 -4.04729378132489 -1.70455696606289 2.5380224606665 9.52389909863653 6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343 -8.68306868648299 7.89553786529952 -0.403709360586344

6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343
П=658.932534926112

  154
+  65

  241
На самом деле мы знаем, что в десятичной системе счисления 4+5=9. А у нас стоит в младшем разряде суммы единица, что меньше 9. Следовательно, был перенос единицы в старший разряд, а само число получилось равным 11. 11-9=2, значит основание системы счисления на 2 меньше, чем десять. 10-2=8. Предполагаем, что система восьмеричная.
Выполняем сложение по правилам восьмеричной системы.
  154
+  65

  241
1) 4+5 = 9₁₀ = 11₈, пишем 1 и единица идет в старший разряд
2) 5+6+1 = 12₁₀ = 14₈, пишем 4 и единица идет в старший разряд.
3) 1+1=2.
Все верно.
ответ: В системе счисления по основанию 8