===== PascalABC.NET =====
begin
var (k, kmax, s) := (1, 0, 1);
var a := ReadInteger;
if a = 0 then
begin
Print(1);
exit
end;
foreach var b in ReadSeqIntegerWhile(p -> p <> 0) do
begin
var sgn := Sign(b - a);
a := b;
if sgn = s then
k += 1
else
begin
if k > kmax then
kmax := k;
(k, s) := (2, sgn)
end
end;
if k > kmax then
kmax := k;
Print(kmax)
end.
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 30.0 c
A = D * i * t * c = 16000 * 4 * 30.0 * 2 = 3840000.0 бит = 468.75 Kбайт = 0.457763671875 Мбайт
Max=0
Min=30000
x=int(input())
while x:
if x>Max:
Max=x
if x<Min:
Min=x
print(Max,Min)
C:\Сданные\Учёба\Биология\Млекопитающие\<span>Виды слонов.txt</span>
2 в "х" степени = 64; 2 в "х" степени = 2 в 6й сепени; х = 6.
Ответ: Потребуется шестиразрядный двоичный код