<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
Напиши про природу.
Вокруг нас есть природа.Она бывает живая и неживая и т.д.
Я предполагаю что слово день.
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.