<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln('Вводите a1, a2, ...: ');
Writeln(sqrt(ReadSeqReal(n).Select(x->x*x).Sum))
end.
<u>Пример</u>
n= 4
Вводите a1, a2, ...:
3 2.5 6.1 -5.2
8.9162772500635
1,5 КБ=1536 байт=12288 бит
12288/3072=4 бита на символ
=16 символов в алфавите
3 бита
=8 - на кодировку одного символа требуется 3 байта
3*13=39 бит
60*3*25=4500 символов в сообщении
1125*8=9000 бит занимает сообщение
9000/4500=2 бита на символ
=4 символа в использованном алфавите
17+1=18
18+1=19
19+1=20
20+1=21
21+1=22
22*2=44
44+1=45
45*2=90
90+1=91
91*2=182
182*2=364
364*2=728
728+1=729
Визуальная!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!