Строки: в словах с нечетным количеством букв - удвоить каждую букву - PascalABC.NET
Формулировка задачи:
Дана строка,в словах с нечетным количеством букв-удвоить каждую букву,
а слова которые содержат четное количество букв оставить без изменения.
Решение задачи: «Строки: в словах с нечетным количеством букв - удвоить каждую букву»
textual
Листинг программы
begin
var s := Regex.Replace(ReadlnString('Введите строку'), '\w+', m -> Odd(m.Value.Length) ? m.Value.Select(ch -> ch + ch).JoinIntoString('') : m.Value);
writeln(s);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д