Информатика, опубликовано 2018-08-22 22:55:55 by Гость
Преобразовать строку так,чтобы все цифры были отсортированы по убыванию Delphi или Паскаль (Лучше Delphi) Помогите пожалуйста
Ответ оставил Гость
Var s: string;
a: array [0..9] of integer;
i, j: integer;
begin
s = readln();
for i := 1 to length(s) do
a[Convert.ToInt32(s[i])]++;
for i := 9 downto 0 do
for j := 1 to a[i] do
write(i);
end.
Это на pascalABC.net. Все должно работать, только Convert можешь сам исправить, если не работаешь в .net
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на