Если на диске много фрагментированных файлов, скорость их чтения с носителя уменьшается. Помимо замедления компьютера в работе с файловыми операциями (таких, как чтение и запись), фрагментация файлов негативно сказывается на «здоровье» жёсткого диска, так как заставляет постоянно перемещаться позиционирующие головки диска, которые осуществляют чтение и запись данных.
Для устранения проблемы фрагментации существуют программы-дефрагментаторы, принцип работы которых заключается в «сборе» каждого файла из его фрагментов.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var s:=ReadlnString;
s:=s.Where(d->d in ['0'..'9']).JoinIntoString('');
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
a3f4h5k&2
3452
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
Держи! Во втором варианте не учитывал что могут быть одинаковые имена, но разные фамилии и поэтому возможно некоторое нарушение в сортировке. Торопился, так как тебе видимо надо побыстрее. Но если надо, то реализую :)