vook 2014-02-06 06:57:12
点我顶贴
收藏
删除
对比如下：
测试点7 Accepted / 7ms / 520kB
测试点8 Accepted / 6ms / 520kB
测试点9 Accepted / 75ms / 1544kB
测试点10 Accepted / 76ms / 1544kB
AC程序：
program dkit;
var s:ansistring;
ch:char;
i,n,t,p:longint;
begin
readln(s);t:=1;n:=0;p:=0;
for i:=1 to length(s) do
begin
ch:=s[i];
case ch of
'+':begin
t:=(t*n)mod 10000;
p:=(p+t)mod 10000;
n:=0;t:=1;
end;
'*':begin
t:=(t*n)mod 10000;
n:=0;
end;
else n:=(n*10+ord(ch)-48)mod 10000;
end;
end;
for i:=length(s)downto 1 do
if s[i]='+' then begin write((p+n)mod 10000);halt;end
else if s[i]='*' then begin write((p+(t*n))mod 10000);halt;end;
for i:=length(s)-3 to length(s) do write(s[i]);
end.
交了好多次啊。。。