Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки

@Al Maz · Регистрация: 06.08.2019

Студворк — интернет-сервис помощи студентам

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все
цифры из второй половины строки; а строки с нечетной длиной: вставить до каждой
буквы знак «*».

@JuriiMW · 20.08.2019, 04:00

Pascal

1
2
3

begin
  ReadAllLines(ReadLnString('Имя файла:')).Select(Line->Odd(Line.Length)?Line.Select(Ch->(Char.IsLetter(Ch)?'*':'')+Ch).JoinIntoString(''):Line.Substring(0,Line.Length div 2)+Line.Substring(Line.Length div 2).Select(Ch->Not Char.IsDigit(Ch)?Ch:'').JoinIntoString('')).PrintLines;
end.

@Al Maz 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 9
		1
	Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки 19.08.2019, 18:56. Показов 697. Ответов 1 Метки нет (Все метки) Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки с нечетной длиной: вставить до каждой буквы знак «*». 0

Опции темы