Имеем казалось бы два идентичных кода. // ——————————————- p:= SetSimplePoly('1',1); i:= 0; repeat Inc(i); p:= MultPoly(p,T[i,i]); until i = 3; ToMe('p2 = '+PolyStr(p)); // ——————————————- p:= SetSimplePoly('1',1); p:= MultPoly(p,T[1,1]); p:= MultPoly(p,T[2,2]); p:= MultPoly(p,T[3,3]); ToMe('p3 = '+PolyStr(p)); // ——————————————- При этом 1-й работает неправильно, а второй правильно. В чем тут фокус? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83501