Помогите записать на языке Паскаль!
Задача. Дано длинное число (записать, как строку) составить из его цыфр минимальное число, используя все цифры. 0 в начале ставить нельзя, только после первой цифры.
Заранее спасибо.
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
Пример
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
Пример
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
Ответ дал:
0
Сейчас немного усложню, чтобы с нулями работало
Ответ дал:
0
Все
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад