第三题,a+b=? 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.