Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
maksymr0906
28.03.2023 01:13 •
Информатика
Преобразовать строку так,чтобы все цифры были отсортированы по убыванию delphi или паскаль (лучше delphi)
Показать ответ
Ответ:
Johhn1
04.10.2020 13:01
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
0,0
(0 оценок)
Популярные вопросы: Информатика
kakniet
12.07.2021 22:01
решить эту задачу. Он на фото Решить краевую задачу для ОДУ второго порядка методом прогонки...
Pol111111111663
23.04.2022 18:29
Двумерный массив размером 10 на 10 заполняется с клавиатуры, найти среднее арифметическое кратных 5 элементов. Таблица и программа....
ladyalinaELIZ
15.10.2022 11:23
Сколько времени потребуется чтобы передать информацию объемом 509183 байт при эффективной скорости передачи информации 3049 бит/сек...
Mystery322
13.12.2022 23:58
1. найти производную функции, используя разностное отношение: f(x) = -1/x...
sumanrahmatova
19.11.2021 05:08
(мне нужно минимум 4 решенных) от этого зависит 2. найти производные функций: a) y=x^4-2(корень х)+5 в) y=e^x - sin x г) y=3^x * x^2 д) y=(корень 5x-8) е)y=ln(2x^2=1) 3. найти...
KNEZIX
03.03.2022 22:25
Выручка от реализации составляет 50 млн. руб., внереализационные поступления -10 млн. руб., фактические затраты – 30 млн. руб. налог на прибыль с учетом полученных льгот составляет...
rusibragimova9
24.08.2020 14:42
Правильно на пиши оборона, путишестовее, паметник, комондир, корабль, камета, канверт, партрет, сетуация ,каридер, леловый, пахожий, матч, агонь, капетан...
Nigina11111
30.06.2021 20:36
Вшар вписан цилиндр радиус шара равен 29 см площадь боковой поверхности цилиндра равна 1680п см2 .найдите объем цилиндра....
moonlight2812
29.04.2023 04:20
1.выписать 4 слова с орфограммой в корне слова 2.записать выделенное числительное словами 3. выписать 4 слова с орфограммой в приставке/суффиксе 4. найти предложение с причастным/деепричастным...
каринка1906
27.07.2022 18:54
Запишите слова,разделяя их на слоги.расставьте ударение понял,аэропорты,столяр,шарфов,километр,бармен,догнала,звала,мышление,обеспечение....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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