【文章內(nèi)容簡(jiǎn)介】
for k:=1 to n do if (ki) and (kj) then begin inc(l)。 b[m,l]:=b[m1,k]。 end。 b[m,1]:=b[m1,i]+b[m1,j]。 dry(m+1)。 b[m,1]:=b[m1,i]b[m1,j]。 dry(m+1)。 b[m,1]:=b[m1,i]*b[m1,j]。 dry(m+1)。 if b[m1,j]0 then if b[m1,i] mod b[m1,j]=0 then begin b[m,1]:=b[m1,i] div b[m1,j]。 dry(m+1)。