// PascalABC.NET 3.2, сборка 1377 от 19.01.2017// Внимание! Если программа не работает, обновите версию!begin var s:=ReadlnString('Строка:'); // общая часть // #1 var c1,c2:char; Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: '); Readln(c1,c2); s:=s.Replace(c1,c2); s.Println; // #2 s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println; // #3 var k:=ReadInteger('k='); s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Printlnend.
ПримерСтрока: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪПлощадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.k= 35Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.