то что мне надо сделать на делфи выглядит так:
Lng, i: Integer;
LRead, LText, LMes, LTel, ANum: String;
begin
ANum := ASms.Number;
if (Length(ANum) mod 2) = 1 then
ANum := ANum + 'F';
for i := 1 to Length(ANum) do
if i mod 2 = 0 then
LTel := LTel + ANum
+ ANum[i-1];
а вот препод требует на баше.
Пользователь решил продолжить мысль 01 Апреля 2012, 00:05:30:
$ L="0666947621" ; echo "$L" | while read -n2 C ; do echo -n "${C:1}${C::1}" ; done ; echo
6066496712
Переименуйте топик: "bash, попарная перестановка символов"
спасибо, сейчас проверю.
Пользователь решил продолжить мысль 01 Апреля 2012, 00:08:05:
почему я раньше баш не видел, оказалось намного проще чем в делфи
