<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
Uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i*i;
writeln(s);
end.
А интернет для чего тебе? Это же лёгкие вопросы!
Смотрим по таблице К для b=24. Поэтому К=16777216. Ответ:16777216 цветов
<span>увеличение отпускной цены выпускаемой продукции;использование более дешевого сырья и рабочей силы;увеличение объемов выпускаемой продукции;снижение себестоимости.
</span>повышение эффективности производства;увеличение прибыли;снижение брака продукции;уменьшение стоимости продукта;создание продуктивной системы контроля над качеством продукции.