569(9)=5103
26705(16)=427280
а второе я хз:D
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
См фото
========================
1
2
3
4
5
6
7
8
9
помоему натуральные числа и их 9 а так несовсем знаю)
Очевидно сообщение по объему уменьшится вдвое. Таким образом в 8-битной кодировке сообщение будет 60 байт. 1 байт = 8 бит.
То есть 60 символов длина сообщения.