===== PascalABC.NET =====
begin
ReadLines('Sonet90.txt').
Where(p -> p.Length > 0).
Select(p -> p.ToUpper.MatchValues('[A-z]').
GroupBy(p -> p).Select(p -> (p.Key, p.Count)).
OrderBy(p -> -p[1]).ThenBy(p -> p[0]).First).
Foreach(p -> Writeln(p[0], ' ', p[1]))
end.
В тестовом файле с именем Sonet90.txt (он прикреплен) находится оригинал известного сонета Шекспира №90. В нем есть и пробелы, и знаки препинания и даже пустая строка.
Then hate me when thou wilt; if ever, now;
Now, while the world is bent my deeds to cross,
Join with the spite of fortune, make me bow,
And do not drop in for an after-loss:
Ah, do not, when my heart hath 'scoped this sorrow,
Come in the rearward of a conquer'd woe;
Give not a windy night a rainy morrow,
To linger out a purposed overthrow.
If thou wilt leave me, do not leave me last,
When other petty griefs have done their spite
But in the onset come; so shall I taste
At first the very worst of fortune's might,
And other strains of woe, which now seem woe,
Compared with loss of thee will not seem so.
Во втором вложении показана работа программы.
ответ: D) для записи разбросанных по диску файлов на новые места в оптимальной форме
Объяснение: Под дефрагментацией понимается сам процесс собирания отдельных частей в одно отведенное место. При этом происходит сбор разбросанных по винчестеру фрагментов одного файла. Кроме того, все записанные данные оказываются в начале, а свободные ячейки в конце диска. Это позволяет:
ускорить доступ к данным;
быстрее загрузить программы и файлы;
повысить быстродействие в ресурсоемких программах;
увеличить скорость записи на диск.
