<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
1 дюйм = 2,54 см (для упрощения расчетов будем считать, что 1 дюйм = 2,5 см).
10 см * 10 см ≈ 4 дюйма * 4 дюйма
Количество точек сканированного изображения = 600*600*4*4
32 бита = 32/8 байт = 4 байта
Объем файла = 600*600*4*4*4 байт = 600*600*4*4*4/1024 Кбайт = 22500 Кбайт = 22500/1024 Мбайт ≈ 22 Мбайта