JZOJ8.14（C组）帕秋莉·诺雷姬

题目：

在幻想乡，帕秋莉·诺蕾姬是以宅在图书馆闻名的魔法使。这一天帕秋莉又在考虑如何加强魔法咒语的威力。帕秋莉的魔法咒语是一个仅有大写字母组成的字符串，我们考虑从’A’到’Z’分别表示0到25的数字，于是这个魔法咒语就可以看作一个26进制数。帕秋莉通过研究发现，如果一个魔法咒语所代表的数能够整除10进制数M的话，就能够发挥最大的威力。若当前的魔法咒语并不能整除M，帕秋莉只会将其中两个字符的位置交换，尽量让它能够被M整除，当然由于某些咒语比较特殊，无论怎么改变都不能达到这个目的。请你计算出她能否只交换两个字符就让当前咒语被M整除。(首位的’A’为前导0)

分析：

直接暴力枚举一下就OK

附上代码：

const
  maxn=2000;

var
  num,temp:array [0..maxn] of longint;
  sum,m:longint;
  s:ansistring;

procedure init;
var
  i:longint;
begin
  readln(s);
  readln(m);
  temp[1]:=1;
  for i:=1 to length(s) do
    begin
      num[i]:=temp[i]*(ord(s[length(s)-i+1])-65) mod m;
      temp[i+1]:=temp[i]*26 mod m;
      sum:=(sum+num[i]) mod m;
    end;
  if sum mod m=0 then
    begin
      writeln(0,' ',0);
      halt;
    end;
end;

procedure main;
var
  i,j:longint;
begin
  for i:=1 to length(s)-1 do
    for j:=i+1 to length(s) do
      if (sum-num[length(s)-i+1]-num[length(s)-j+1]+temp[length(s)-j+1]*(ord(s[i])-65)+temp[length(s)-i+1]*(ord(s[j])-65)) mod m=0 then
        begin
          write(i,' ',j);
          halt;
        end;
  writeln(-1,' ',-1);
end;

begin
  init;
  main;
end.