0 / 0 / 3
Регистрация: 17.10.2009
Сообщений: 14
1

Переставить цифры числа

17.10.2009, 16:57. Показов 1910. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте...
не могли бы помочь решить задачу:
Дано натуральное число n (n<9999) переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
Фишка в том, что нельзя использовать string =*(
А как без него незнаю можете пожалуса помточь...
Язык Pascal.
Заранее огромное спасибо и низкий поклон...
0
17.10.2009, 16:57
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.10.2009, 16:57
Ответы с готовыми решениями:

Переставить цифры числа
Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное Число, записанное теми же цифрами не через массив

Дано число (н) надо переставить первую и последнюю цифры этого числа
надо решить через while Дано число (н) надо переставить 1-ю последнюю цифры этого числа если можно с блок-схемами

Переставить цифры в числе
Помогите!!! Условие:дано 3-значное число найдите число при перестановки 2 и 3 цифры заданного числа.

10
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2009, 17:38 2
А массив и сортировку можно использовать.
0
0 / 0 / 3
Регистрация: 17.10.2009
Сообщений: 14
17.10.2009, 17:40  [ТС] 3
и массивы тоже нельзя =*(
0
1 / 1 / 0
Регистрация: 06.10.2009
Сообщений: 21
17.10.2009, 17:40 4
Массив нельзя, а вот сортировку вроде можно
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2009, 17:41 5
Массив нельзя, а вот на счет сортировки не знаю,
А что сортировать, если не будет массива?
0
1 / 1 / 0
Регистрация: 06.10.2009
Сообщений: 21
17.10.2009, 17:45 6
то что введешь в с клавиатуры в фунции FOR
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2009, 18:19 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln('Введите натуральное число <9999');
readln(n);
until(n>0)and(n<9999);
for i:=9 downto 0 do
 begin
  m:=n;
  while m>0 do
   begin
    k:=m mod 10;
    if k=i then
     begin
      write(k);
      break;
     end
    else m:=m div 10;
   end;
 end;
readln
end.
1
0 / 0 / 3
Регистрация: 17.10.2009
Сообщений: 14
17.10.2009, 18:24  [ТС] 8
Огромное спасибо...
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2009, 18:26 9
Babib, Прочитай про алгоритмы сортировок, посмотри что можно сортировать, и не смеши народ.
0
1 / 1 / 0
Регистрация: 06.10.2009
Сообщений: 21
17.10.2009, 19:34 10
Да я уже понял, что чушь я сказал. Но мне всего лишь 5 лет.

Добавлено через 13 минут
Puporev, Почему когда вводишь число 9996 выдает не максимальный результат, 9996, а 96. И когда вводишь 9987, выдает 987
1
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2009, 19:43 11
Babib, Молодец, заметил. Нужно break убрать, перестарался.
Вот так верно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln('Введите натуральное число <9999');
readln(n);
until(n>0)and(n<9999);
for i:=9 downto 0 do
 begin
  m:=n;
  while m>0 do
   begin
    k:=m mod 10;
    if k=i then write(k);
    m:=m div 10;
   end;
 end;
readln
end.
0
17.10.2009, 19:43
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.10.2009, 19:43
Помогаю со студенческими работами здесь

Переставить местами цифры 4-хзначного числа так, чтобы сначала оказались цифры, меньшие пяти
помогите написать условие, переставляющее цифры местами в соответствии с заданием. я запутался вообще, скину код который написал. 32....

Переставить цифры числа, чтобы получилось число больше начального, но минимальное из возможных
Есть число , в нем переставляют цифры т.к что бы получилось число большее начального , но минимальное из возможных. Найти это число.

Заданы два числа M и N. Какое из двух чисел будет больше, если у обоих числах переставить крайние цифры
Заданы два числа M и N. Какое из двух чисел будет больше, если у обоих числах переставить крайние цифры, через подпрограммы-процедуры

Цикл: вывести на экран цифры числа, не превышающие заданной цифры A, и вычислить их произведение
Дано натуральное число N. Вывести на экран цифры, не превышающие заданной цифры a и вычислить их произведение. Можно, пожалуйста, через...

Переставить цифры числа
из трехзначного числа Х вычли его последнюю цифру . Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа Х,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Что означает знак восклицания в TypeScript
hw_wired 14.02.2025
TypeScript - удивительный язык программирования, который предоставляет множество возможностей для работы с типами данных. Особый интерес вызывает оператор утверждения ненулевого значения, который. . .
Как свернуть/скрыть секции кода в Visual Studio Code
hw_wired 14.02.2025
Ежедневно мы работам с файлами, содержащими сотни и тысячи строк кода. Навигация по такому объему становится настоящим испытанием, особенно когда нужно быстро найти нужный метод или переменную. . . .
Автоматическое создание файла requirements.tx­t в Python
hw_wired 14.02.2025
Дружелюбная среда для разработки на Python, один из самых широко используемых языков программирования, состоит не только из самого кода, но и целого ряда важных компонентов. И если вы когда-нибудь. . .
Передача переменных окружения в контейнер Docker
hw_wired 14.02.2025
При работе с Docker контейнерами возникает необходимость передать различные настройки и конфигурационные параметры - от строк подключения к базам данных до API ключей. И хотя можно жестко прописать. . .
Отличия Constructor и ngOnInit в Angular
hw_wired 14.02.2025
Разработка компонентов в Angular - непростая задача, особенно когда дело доходит до правильной инициализации и управления их жизненным циклом. Каждый разработчик рано или поздно сталкивается с. . .
Ошибка "Transport security has blocked a cleartext HTTP" в iOS
hw_wired 14.02.2025
В iOS-разработке часто возникают неожиданные препятствия, и одним из самых распространенных является сообщение об ошибке "Transport security has blocked a cleartext HTTP". Эта ошибка появляется,. . .
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru