Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.
111011101₂ = 477₁₀ = 735₈ = 1DD₁₆
1101001₂ = 105₁₀ = 151₈ = 69₁₆
1101111001₂ = 889₁₀ = 1571₈ = 379₁₆
1101101101₂ = 877₁₀ = 1555₈ = 36D₁₆
11000010001₂ = 1553₁₀ = 3021₈ = 611₁₆
Xxx.pptx
или
xxx.ppt
где xxx- название файла
Второй вариант. Внизу картинка, которая всё подтверждает :)
Корова.....................................................