【利用同余的DP】符文之语(chars. pas/c/cpp)

符文之语(chars. pas/c/cpp)
【题目描述】

当小FF来到神庙时，神庙已经破败不堪了。但神庙的中央有一个光亮如新的石台。小FF走近石台，发现石台上有一个数串，而数串的上方刻着一串古老的符文之语。精通古符文之语的小FF不费吹灰之力就读懂了文章的意思，其大意是：对于石台上的一串数字，你可以在适当的位置加入乘号（设加了k个，当然也可不加，即分成k+1个部分），设这k+1个部分的乘积（如果k=0，则乘积即为原数串的值）对m的余数（即mod m）为x；现求x能达到的最小值及该情况下k的最小值，以及x能达到的最大值及该情况下的k的最小值（可以存在x的最小值与最大值相同的情况）。小FF还知道，如果他找到了正确的答案，那么就可以通往神庙的下层了。但这个问题似乎不太好解决，小FF就找到了你，并答应找到财宝以后和你二八分(当然你拿二……)。

【输入格式】

第一行为数串，且数串中不存在0；

第二行为m。

【输出格式】

四个数，分别为x的最小值和该情况下的k，以及x的最大值和该情况下的k，相邻两个数之间用一个空格隔开。

【输入样例】

4421

22

【输出样例】

0 1 21 0

【数据范围】
对于30%的数据：2≤字符串长度L≤50。

对于100%的数据：2≤字符串长度L≤1000;2≤m≤50。

=====================================

==========================

var
st:ansistring;
m,st_l:longint;
f:Array[0..1000,0..50]of longint;
dist:array[0..1000,0..1000]of longint;
a:array[1..1000]of longint;
procedure init;
begin
assign(input,'chars.in');
assign(output,'chars.out');
reset(input); rewrite(output);
end;

procedure terminate;
begin
close(input); close(output);
halt;
end;

procedure main;
var
i,j,k:longint;
begin
readln(st);
st_l:=length(st);

readln(m);
fillchar(f,sizeof(f),$ff);
dist[1,0]:=0;
for i:=1 to st_l do
for j:=i to st_l do
begin
dist[i,j]:=(dist[i,j-1]*10+ord(st[j])-48)mod m;
end;
f[0,1]:=0;
for i:=1 to st_l do
for j:=i-1 downto 0 do
for k:=0 to m do
if f[j,k]<>-1 then
begin
if f[i,(k*dist[j+1,i])mod m]=-1 then f[i,(k*dist[j+1,i])mod m]:=f[j,k]+1
else if f[i,(k*dist[j+1,i])mod m]>f[j,k]+1 then f[i,(k*dist[j+1,i])mod m]:=f[j,k]+1;
end;
for i:=0 to m do
if f[st_l,i]<>-1 then
begin
write(i,' ',f[st_l,i]-1,' ');
//减1的原因是开始按只有一段的时候按的是1来算得..
break;
end;
for i:=m-1 downto 0 do
if f[st_l,i]<>-1 then
begin
write(i,' ',f[st_l,i]-1);
break;
end;
end;

begin
init;
main;
terminate;
end.