Дан текстовый файл f. Удалить из файла все слова, длина которых равна N - PascalABC.NET

Формулировка задачи:

Даны текстовый файл f . Удалить из файла все слова , длина которых равна N. Добавлено через 3 часа 40 минут Срочно помогите

Код к задаче: «Дан текстовый файл f. Удалить из файла все слова, длина которых равна N - PascalABC.NET»

textual
uses System.Io;
const n=5;
      FileName='r1.txt';
begin
  &File.WriteAllText(FileName,Regex.Replace(&File.ReadAllText(FileName,Encoding.Default),
  '(\b\w{'+inttostr(n)+','+inttostr(n)+'}\b)',''),Encoding.Default);
end.

12   голосов, оценка 4.417 из 5


СОХРАНИТЬ ССЫЛКУ