program gaojingdu;type newtype=array[0..200]of byte;var a,b,jieguo:newtype; biaozhi:char;{====================读入并处理A,B两个字符串}procedure chuli;var i:integer; a1,b1:string;begin readln(a1); readln(b1); a[0]:=length(a1); b[0]:=length(b1); for i:=1 to length(a1) do a[i]:=ord(a1[i])-ord('0'); for i:=1 to length(b1) do b[i]:=ord(b1[i])-ord('0');end;{===================加法}function jia(a,b:newtype):newtype;var tp:newtype; d,i:integer;begin fillchar(tp,sizeof(tp),0); if a[0]>b[0] then d:=a[0] else d:=b[0]; for i:=1 to d do begin tp[i]:=tp[i]+a[i]+b[i]; if tp[i]>9 then begin tp[i]:=tp[i]-10; tp[i+1]:=tp[i+1]+1; end; end; if tp[d+1]>0 then tp[0]:=d+1 else tp[0]:=d; jia:=tp;end;{=============================判断大数}function panduan(a,b:newtype):boolean;begin if a[0]>b[0] then tp:=true else if a[0]

dddddddddddddddddddddddddddddddddddd

1

乘除呢？