题目描述 Description
给定一个只包含加法和乘法的算术表达式，请你编程计算表达式的值。
输入描述 Input Description
输入仅有一行，为需要你计算的表达式，表达式中只包含数字、加法运算符“+”和乘法运算符“*”，且没有括号，所有参与运算的数字均为0到2^31-1之间的整数。输入数据保证这一行只有0~9、+、*这12种字符。
输出描述 Output Description
输出只有一行，包含一个整数，表示这个表达式的值。注意：当答案长度多于4位时，请只输出最后4位，前导0不输出。
样例输入 Sample Input
[Sample 1]
1+1*3+4
[Sample 2]
1+1234567890*1
[Sample 3]
1+1000000003*1
样例输出 Sample Output
[Sample 1]
8
[Sample 2]
7891
[Sample 3]
4
数据范围及提示 Data Size & Hint
【样例说明】
样例1计算的结果为8，直接输出8。
样例2计算的结果为1234567891，输出后4位，即7891。
样例3计算的结果为1000000004，输出后4位，即4。
【数据范围】
对于30%的数据，0≤表达式中加法运算符和乘法运算符的总数≤100；
对于80%的数据，0≤表达式中加法运算符和乘法运算符的总数≤1000；
对于100%的数据，0≤表达式中加法运算符和乘法运算符的总数≤100000。
题解：
数据结构—栈（用的是思想）。
由于没有（），所以计算就方便了。1、这一位是数字，存到s2里面（s2*10+ord（s【i】）-48）；2、加号，ans+s1*s2；3、乘号，直接改变s1*s2。（注意：赋值请每一次都mod 10000）。
var s1,i,s2,ans:longint;
s:ansistring;
begin
s1:=1;
readln(s);
for i:=1 to length(s) do
case s[i] of
‘+‘:
begin
ans:=(ans+s1*s2) mod 10000;
s1:=1;
s2:=0;
end;
‘*‘:
begin
s1:=s1*s2 mod 10000;
s2:=0;
end;
else s2:=(s2*10+ord(s[i])-48) mod 10000;
end;
write((ans+s1*s2) mod 10000);
end.