Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
V=M*L*t
Звукозапись двухканальная, значит еще умножаем на 2.
V=M*L*t*2
V = 120 мбайт = 125829120 байт
L= 24 бита = 3 байта
M = 64 кГц = 64000 Гц
t=V/(M*L*2)=125829120/(64000*3*2) ≈ 5 (мин)
Ответ: 5 минут.