Просто смотришь какие цифры на пересечении букв стоят и сравниваешь, получается 2 граф
1)16.08899817075
нужно кбайти перевести в биты ы поделить на 128000
2) 608 Кбайт
Нужно 256000*19перевести в кбайты
Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>
Объем шара
![V=\frac43\pi r^3](https://tex.z-dn.net/?f=V%3D%5Cfrac43%5Cpi+r%5E3)
, объем куба
![V=A^3](https://tex.z-dn.net/?f=V%3DA%5E3)
. Необходимо сравнить объёмы двух сосудов.
Код (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.
Эм, получается, <span>club161914062</span>