<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
Function Max(a,b,c:integer):integer;
Begin
if b > a then a:=b;
if c > a then a:=c;
result:=a;
End;
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
Write('Max = ',Max(a,b,c))
End.
Если подождать, то и на море будет хорошая погода
Если спешишь - то поезжай окольными путями
Есть враги - спать не моги
Ему о деле говорят - а он о Тане думает :)))
<span>(А блок-схему ветвления перерисуй из ЛЮБОГО учебника информатики)</span>
Var i, c, n: integer;
begin
read(n);
c:=1;
for i:=1 to n do
c:=c*2;
writeln(c);
<span>end.</span>
Кодировка ASCII - семибитная,
КОИ-8 - восьмибитная,
Windows-1251- восьмибитная
Значит эти варианты отпадают.
Остается Unicod, правда здесь надо сделать примечание:
Для тех входных данных, которые указаны в условии задачи кодировка UTF-16
Ответ: Unicode