加法最大

版权声明:转载随意 https://blog.csdn.net/ssl_TRX/article/details/70750162

加法最大

Time Limit:1000MS  Memory Limit:65536K
Total Submit:105 Accepted:59

Description

设有一个长度为n的数字字符串,分成k+1个部份,使其k+1部份相加的和为最大。例如:数字串'340670',k=1,其加法有
  3+40670=40673 34+0670=704 340+670=1010 3406+70=3476 34076+0=34076
其最大和为40676。
问题:当数字串和k给出后,找出一个分法使和为最大。

Input

Output

Sample Input

6 1
340670

Sample Output

40673

Source

elba



var
 i,j,k,p,m,n:longint;
 f:array[0..50,0..50]of longint;
 a:string;


 function make(p,q:longint):longint;
  var
   x,c:longint;
  begin
   val(copy(a,p,q),x,c);
   make:=x;
  end;
begin
 readln(n,m);
 readln(a);
 fillchar(f,sizeof(f),0);
 for i:=1 to n do f[i,1]:=make(1,i);
 for k:=2 to m+1 do
  for i:=k to n do
   for j:=i downto k do
    begin
     p:=make(j,i-j+1);
     if f[i,k]<f[j-1,k-1]+p then f[i,k]:=f[j-1,k-1]+p;
    end;
 write(f[n,m+1]);
end.

展开阅读全文

没有更多推荐了,返回首页