Проблема с наушникамии jbl tune500bt. Крч,описываю ситуацию. 1. Они включаются не с первого раза. 2. Когда я их включил,через несколько секунд они выключаются. Заряд 70% ​

//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

Задание 1.

3 кбайта= 3*1024*8=24576 бит

1 мбайт = 1*1024*8=8196 байт

4096 бит =4096\8\1024= 0.5 кбайта

2.5 мбайт=2.5*1024=2560 кбайт

Задача 2.

k-120 символов

N(мощность алфавита) = 512=> i=9 бит

I=k*i

I=120*9=1080 бит

Задача 3.

I=2 кб

k=4096 символов

N=2^i        I=k*i                i= 2*1024*8/4096=4

2^4=16 - ответ

Задача 4.

Племя мульти:

N=64 => i=6 бит

Значит 150*6=900 бит          

Племя пульти:                                

N=512 =>i=9 бит

Значит 50*9=450 бит

Задача 5.

I=8 кб

N=16 => i=4

k-?               k=I/i            k=8*1024*8/4=16 384 - всего символов

16 384/512=32 страницы