[YA_MARIYA]

Здравствуйте!

Код:

var n,l,h:integer;
begin
.....
For h:=1 to n do begin
For l:=1 to n do begin
Memo1.SelText:=(' B_['+inttostr(h)+']'+('(A_[ '+inttostr(l)+']'+'+B_[ '+inttostr(l))+'])' );
end;
end;

Admin: Пользуемся тегами!

n берется с формы.
Если, напиример, n=3,тогда
Пишет: B_[1](A_[1]+B_[1])+B_[1](A_[2]+B_[2])+B_[1](A_[3]+B_[3])+ B_[2](A_[1]+B_[1]) и т. д.
Подскажите, пожалуйста, что нужно сделать, чтоб писал так:
B_[1](B_[2]+A[2])(B_[3]+A[3])+ B_[2](B_[1]+A[1])(B_[3]+A[3])+ B_[3](B_[1]+A[1])(B_[2]+A[2])