Pascal问题：a+ba+b=?Time Limit:1000MS Memory Limit:65536KTotal Submit:746 Accepted:434 Description 做了,b和的问题.但是,如果要求输入的情况不是a和b,而是整个加法表达式呢?请想办法,计算加法表达式的结果.Input
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/29 22:59:37
Pascal问题：a+ba+b=?Time Limit:1000MS Memory Limit:65536KTotal Submit:746 Accepted:434 Description 做了,b和的问题.但是,如果要求输入的情况不是a和b,而是整个加法表达式呢?请想办法,计算加法表达式的结果.Input
Pascal问题：a+b
a+b=?
Time Limit:1000MS Memory Limit:65536K
Total Submit:746 Accepted:434
Description
做了,b和的问题.但是,如果要求输入的情况不是a和b,而是整个加法表达式呢?
请想办法,计算加法表达式的结果.
Input
输入一个加法表达式,如1+2=.
Output
计算出输入表达式的正确结果
Sample Input
1+2=
Sample Output
3
Hint
完整的输入表达式.加号两边的数值属于int范围内,且第一个数可能为负数
Source
C++练习（一）
Pascal问题：a+ba+b=?Time Limit:1000MS Memory Limit:65536KTotal Submit:746 Accepted:434 Description 做了,b和的问题.但是,如果要求输入的情况不是a和b,而是整个加法表达式呢?请想办法,计算加法表达式的结果.Input
var a:string;
t,i,s1,s2,p,d,j:longint;
code:integer;
k:boolean;
begin
readln(a);k:=true;
t:=length(a);s1:=0;s2:=0;if a[1]='-' then begin d:=2;k:=false;end else d:=1;
for i:=d to t do
if a[i]='+' then break
else begin p:=s1*10;val(a[i],s1,code);s1:=s1+p;end;
for j:=i+1 to t-1 do
begin p:=s2*10;val(a[j],s2,code);s2:=s2+p;end;
if k=true then writeln(s1+s2)
else writeln(s2-s1);
end.