Ответ:
Сколько слайдов? Почему именно на тему Гравити Фолз
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.
Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
Объем сообщения I=650 битов
Количество символов K=130
I=К*i => i = I / K = 650/130=5 битов
ответ:5 битов.