|
|
#1
|
|||
|
|||
Перестановка букв
Добрый вечер,ночь.
Помогите с задачкой: Вводим строку все встречающейся в ней буквы "А" нужно переставить в начало. Буду благодарен за помощь. |
#2
|
|||
|
|||
Можно так
Код:
var I: Integer; Str: string; begin I := 0; while I <> Length(Str) do begin I := I + 1; if Str[i] = 'A' then begin Str := Str[i] + Str; Delete(Str, I+1, 1); end; end; end. Последний раз редактировалось lmikle, 19.04.2010 в 07:11. Причина: Дубль |
#3
|
|||
|
|||
Большое спасибо !
|