Advertisement
smay

Untitled

Feb 7th, 2016
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.88 KB | None | 0 0
  1. {$reference System.Core.dll}
  2. uses System.Linq, System.IO, arrays;
  3.  
  4. begin
  5.   &File.WriteAllText('output.txt', string.Join(' ',
  6.     &File.ReadAllText('d:\input.txt').Split('  '.ToCharArray()).
  7.       Select(StrToInt).OrderBy((x : integer) -> x).Select((x : integer) -> IntToStr(x)).ToArray())); // Читаем весь текст в виде одной строки из исходного файла, разбиваем строку на отдельные подстроки по пробелам, каждую из подстрок преобразуем в число, и эти числа упорядочиваем через OrderBy по возрастанию. А потом - конвертируем числа назад в строки, объединяем все подстроки в одну строку через string.Join, и пишем в выходной файл.
  8. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement