Сообщение состоит из 48 символов. Глубина кодирования равна 8 битам. значит согласно алфавитного подхода сообщение имеет 48*8=384 бита информации.
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.
Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>
Вот, сорян что фото, потому что Знания говорят что там есть запрещённые слова.
В 8ричной системе 23435.
В 16ричной системе 10013.