Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tumenka140
21.06.2021 01:49 •
Информатика
Преобразовать строку так,чтобы все цифры были отсортированы по убыванию delphi или паскаль (лучше delphi)
Показать ответ
Ответ:
Алина483329
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 оценок)
Популярные вопросы: Информатика
2003mariasMaria
11.10.2021 00:53
Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. разработать тесты проверки правильности работы программы для вариантов, когда d 0, d=0 и...
Филин4625622
27.04.2023 12:00
Как за один цикл сравнить два числа одновременно в паскале...
dalldall
06.03.2020 13:45
Задача на доказательство Дано: ABCD прямоугольник DFGC прямоугольник. Докажи что AEHB прямоугольник...
daniil2003m
25.03.2022 09:15
Mehmondostlik odobi haqida matn kerak iltimos...
misha22656
19.11.2021 23:50
3. Выполни соответствие Необходимо выполнить соответствие, указав стрелочкойэлемент окна программы Photo-Brush на его определение...
lenaburlacu
20.01.2023 03:44
Read the statement and choose the right option. This part of the agriculture occupies the main part of agricultural lands in Kazakhstan....
Danyaukos
16.08.2021 02:25
ПОМАГИТЕ He as a priest, he can conduct wedding ceremonies from time to time. Выберите один ответ:workingworksworkedworkВопрос 2Текст вопроса you married?Выберите один ответ:don...
barash8
12.10.2021 00:52
Определи основную мысль первого четверостишия в стихотворении «Трудно Фее». Трудно фее«Фея» - шепнули сирени,«Фея» - призыв был стрижа,«Фея» - шепнули сквозь тениЛандыши, очи смена.«Фея»,...
evgeniaberezka
31.01.2020 02:34
Ask and answer the questions....
arrow34
18.02.2023 01:44
Колесо поворачивается один наряд на один ряд ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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