Question

表达式计算 free pascal

描述 Description
给出一个表达式,其中运算符仅包含+,要求求出表达式的最终值

输入格式 Input Format
仅一行，即为表达式

输出格式 Output Format
仅一行，既为表达式算出的结果

样例输入 Sample Input
1+1

样例输出 Sample Output
2

时间限制 Time Limitation
各个测试点1s

注释 Hint
表达式总长度<=1500

Answer 1

很好懂的。。自己模拟下就知道了。。最大数据用总长度为2001的字符串测试过。。
program no5;
var s1,s2:ansistring;
n,i,k,code,l:longint;
begin
readln(s1);
n:=length(s1);
s1:=s1+'+';
k:=0;
while n<>0 do
begin
i:=pos('+',s1);
s2:=copy(s1,1,i-1);
val(s2,l,code);
k:=k+l;
delete(s1,1,i);
n:=length(s1);
end;
writeln(k);
end.