Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Макс00796
20.05.2022 14:55 •
Информатика
Дано натуральное число n. переставить местами его цифры так, чтобы получилось максимальное число, записанное теми же цифрами. (программирование в pascal abc)
Показать ответ
Ответ:
annasuhanova013нюта
04.10.2020 11:54
Var s: string; a: char; n,l: integer; i,j: byte;
begin
write ('Введите число: ');
readln (n);
Str(n,s);
l:=length(s);
for i:=1 to l-1 do begin
for j:=i+1 to l do begin
if s[i]<s[j]
then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end
end
end;
writeln;
writeln (S)
end.
Введите число: 273707
777320
0,0
(0 оценок)
Популярные вопросы: Информатика
hoggarthtanya
11.10.2022 07:09
Нужно составить разветвлённый алгоритм по следующим 1.увеличить число х на 5, если оно положительное 2.данные действительные числа х , у не равны друг другу, меньше из...
ВаНяЛЕТОвальцев
18.12.2020 01:20
Объектами изучения в информатике являются: заказчик алгоритм разработка дизайна ноутбука аппартное и программное обеспечение...
Даша46111
26.04.2021 09:33
Составить программу в паскале: составьте программу нахождения наименьшего наименьшего натурального n-значного числа x( x =10), меньшего произведению своих цифр....
TuttiFrutti56
20.02.2023 06:54
Задать массив m из 7 случайных чисел от 12 до 73 . увеличить элементы массива стоящие на нечетных местах в 5 раз. вывести элементы массива до и после преобразования...
PomogyBratan
20.02.2023 06:54
Вкоробке лежит 31. 14 из них белые, а 17 черные. сколько шариков необходимо , чтобы точно достать 2 шарика черного цвета. 26...
01mrfrost10p0cb3m
20.12.2022 15:18
Можете по возможности быстрее (информатика 6 класс СОР) ...
MaximRomanenko
04.04.2023 17:26
Вкаких грибах больше всего белка? а) в маринованных б) в в) в соленых г) в сушеных...
Kto6to
04.04.2023 17:26
Разложить на множители : 5а² + 10ay+5y²...
kutluyulova04
04.04.2023 17:26
Выпишите органы относящихся к выделительной системе млекопитающих...
EvelEvg
04.04.2023 17:26
Отыщи слова с суффиксом ик: дворник,носик,дикий,крик,сникнуть,пикать,мячик,облик,столик,мальчик...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write ('Введите число: ');
readln (n);
Str(n,s);
l:=length(s);
for i:=1 to l-1 do begin
for j:=i+1 to l do begin
if s[i]<s[j]
then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end
end
end;
writeln;
writeln (S)
end.
Введите число: 273707
777320