var f:text;s:ansistring;
 procedure nhap;
 begin
        assign(input,'mahoa.inp');
        reset(input);
        read(s);
        close(input);
 end;
 procedure swap(a,b:string);
 var tmp:string;
 begin
        a:=b;
        b:=tmp;
        tmp:=b;
 end;
 procedure xuly;
 var i:longint;a:ansistring;max,ss,vt:longint;
 begin
        for i := length(s) downto 1 do a:=a+s[i];
        writeln(a);
        ss:=0;
        max:=0;
        for i := 1 to length(a) do
        begin
                if (ord(a[i]) <= 57) and (ord(a[i]) >= 48) then
                begin
                        if max < ss then
                        begin
                                max :=ss;
                                vt:=i-1;
                        end;
                        ss:=0;
                end
                else inc(ss);
        end;
        if max = 0 then
        begin
                writeln(0,' ',0);
                writeln(a);
                exit;
        end;
        writeln(vt-max+1,' ',vt);
        insert(a[vt],a,vt-max+1);
        insert(a[vt-max+2],a,vt+1);
        delete(a,vt-max+2,1);
        delete(a,vt+1,1);
        writeln(a);
 end;
 procedure xuat;
 begin
        assign(output,'mahoa.out');
        rewrite(output);
        xuly;
        close(output);
 end;
begin
        nhap;
        xuat;
end.

//homnaytoibirob

Gửi bạn from Hômnaytôibịrob

 idea bài này chủ yếu mình code đơn giản là trick bạn đang học hsg tp lớp 9 nhỉ :// vậy thì chưa cần limit lắm nếu có thời gian thì nên nghiên cứu thêm trên vnoi các thuật toán như loang, 2 con trỏ thì sẽ làm bài này ez hơn.