1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
Var a,b,c:integer;
begin
readln(a,b,c);
if (a<b)and (a<c) then
begin
writeln(a);
if b<c then
begin
writeln(b);
writeln(c);
end
else
begin
writeln(c);
writeln(b);
end
end;
if (b<a)and (b<c) then
begin
writeln(b);
if a<c then
begin
writeln(a);
writeln(c);
end
else
begin
writeln(c);
writeln(a);
end
end;
if (c<a)and (c<b) then
begin
writeln(c);
if a<b then
begin
writeln(a);
writeln(b);
end
else
begin
writeln(b);
writeln(a);
end
end
end.
2^5 = 32
Вагон №32 закодирован 11111 (5 бит)
Вагон №7 111 (3 бита)
<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