// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('Ср.знач.=',
ArrRandom(ReadInteger('n='),1,50).Println.Average)
end.
<u><em>Тестовое решение:</em></u>
n= 15
46 24 35 34 48 18 34 7 12 5 22 14 2 4 43
Ср.знач.=23.2
64+32+0+8+4+2+0
11011110
X2
111=37*3+0
37=12*3+1
12=4*3+0
4=1*3+1
1=0*3+1
11010
X3
111=13*8+7
13=1*8+5
1=0*8+1
157
X8
111=6*16+15(F)
6=0*16+6
6F
X16
Ну скажем...
1 = а
2 = б
3 = в
4 = г
и так далее.
Но можно скажем сделать так...
10000 = а
11000 = б
11100 = в
11110 = г
11111 = д
и так далее.
Шифр 11000 10000 11110 = баг
И, таким образом, ты можешь придумывать свои кодировки
Pascal
Скидываю файл, так как там действительно много кода.
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.