Введена связка символов. Присоединить в ее начале и в конце одинаковое количество минимально возможных буквенных А, чтобы её длина стала по крайней мере 2 раза больше.
const Sumb:Char='A'; var A,S:AnsiString; n,i:integer; begin n:=(Length(Edit1.Text)); if (n mod 2<>0) then inc(n); n:=round(n/2); SetLength(S,n); SetLength(A,n*3); for i:=1 to n do S[i]:=Sumb; A:=S+Edit1.Text+S; Edit1.Text:=A; end;
Насколько проще была бы жизнь если бы она была в исходниках
