Pascal 小白提问 运行后提示exitcode=106哪边出现问题？

其实这个很简单，因为char读入时不用输入空格，所以稍微改进一下就是：varc,d:char;a,b,h:real;beginread(c);a:=ord(c)-48;read(d);read(c);b:=ord(c)-48;casedof'+':h:=a+b;'-':h:=a-b;'*':h:=a*b;'/':h:=a/b;end;write(h:0:2);end.不过因为不用string来编写，所以这个程序只能用来算两个一位数相加（减、乘、除），如果用pascal来编这道题的话程序应该这样写：vars:string;i,n:longint;a,b,h:real;c:char;beginreadln(s);n:=length(s);fori:=1tondobeginifs[i]in['0'..'9']thena:=a*10+ord(s[i])-48elsebreak;end;c:=s[i];fori:=i+1tondob:=b*10+ord(s[i])-48;casecof'+':h:=a+b;'-':h:=a-b;'*':h:=a*b;'/':h:=a/b;end;write(h:0:2);end.