var n, ans, i, j : integer; s : string; Function get(i : integer) : char; begin if i <= n then get := s[i] else get := s[i - n]; end; begin readln(s); n := length (s); ans := 1; for i:= 2 to n do begin for j:=0 to n - 1 do if get(i + j) < get(ans + j) then begin ans := i; break; end else if get(i + j) > get(ans + j) then break; end; for j:=0 to n - 1 do write(get(ans + j)); writeln; end
输入:CBBADADA
输出:1