记录编号 29465 评测结果 AAAAAAAWWW
题目名称 乘法问题 最终得分 70
用户昵称 GravatarOo湼鞶oO 是否通过 未通过
代码语言 Pascal 运行时间 0.032 s
提交时间 2011-10-23 22:10:33 内存使用 0.12 MiB
显示代码纯文本
program chengjizuida;
var
  n,kk,k,i,j:longint;
  s:string;
  code:integer;
  f:array[1..40,1..7]of int64;
  d:int64;
begin
  assign (input,'chf.in');
  reset (input);
  assign (output,'chf.out');
  rewrite (output);
    readln (n,kk);
    readln (s);
    for i:=1 to n do
      val(copy(s,1,i),f[i,1],code);
    for i:=1 to n do
      for j:=2 to kk+1 do
        for k:=1 to i-1 do
        begin
          val(copy(s,k+1,i-k),d,code);
          if f[k,j-1]*d>f[i,j] then
            f[i,j]:=f[k,j-1]*d
        end;
    writeln (f[n,kk+1]);
  close (input);
  close (output)
end.