Если строка нечетной длины, удалить средний символ

18.03.2012, 21:07. **Показов** 1878. **Ответов** 2

Если строка нечетной длины,удалить средний символ.

@Alex_pac · 18.03.2012, 22:00

Delphi

1
2
3

s:='hello world';
if ((Length(s) mod 3) = 0) then delete(s,round(Length(s)/2),1);
ShowMessage(s);

@Петррр · 18.03.2012, 22:05

Delphi

var
  s: string;
begin
  s := 'привет!';
  if odd(length(s)) then
    delete(s, length(s) div 2 + 1, 1);
end;

Dmona
		1
	Если строка нечетной длины, удалить средний символ 18.03.2012, 21:07. Показов 1878. Ответов 2 Метки нет (Все метки) Если строка нечетной длины,удалить средний символ. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Опции темы

Решение