笑嘻嘻 2009-04-08 02:25:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeost[5]
得分： 0分
提交日期： 2009-4-8 17:06:00
有效耗时： 该状态没有记录
测试结果1: 测试结果错误.错误结果为:777777
正确结果应为:4897
测试结果2: 测试结果错误.错误结果为:9999
正确结果应为:2567
测试结果3: 测试结果错误.错误结果为:66666
正确结果应为:12206
测试结果4: 测试结果错误.错误结果为:444444444
正确结果应为:146696374
测试结果5: 测试结果错误.错误结果为:666666666666
正确结果应为:113124236
var s,b,min:string；
i1,i,j,n,a:longint；
begin
readln(s)；
readln(n)；
n:=length(s)-n；
i1:=1；
for i:=1 to n do
begin
for j:=i1 to length(s)-i+1 do
begin
min:=’9’；
if copy(s,j,1)<=min then
begin
min:=copy(s,j,1)；a:=j+1；
end；
end；
i1:=a；
b:=b+min；
end；
writeln(b)；
end。
谁能帮忙看一看呀？