Результат: ТМРРО
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.
Так как в результате первого сложения должно получиться <u>трехзначное число</u>, то нетрудно предположить, что три одинаковые цифры -<u> три девятки</u>.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
Ответ: 46
Edu.......................................