Вопрос по информатике:
Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число записанное теми же цифрами. Написать программу в макросе.
Пожаловаться
- 27.06.2018 07:23
- Информатика
- remove_red_eye 8129
- thumb_up 31
Ответы и объяснения 1
Sub aaa()
n = CLng(InputBox("Введите натуральне число"))
ReDim d(1 To 10)
i = 0
Do While n > 0
i = i + 1
d(i) = n Mod 10
n = n \ 10
Loop
ReDim Preserve d(1 To i)
n = i
For i = 1 To n - 1
For j = i + 1 To n
If d(i) < d(j) Then
t = d(i)
d(i) = d(j)
d(j) = t
End If
Next j
Next i
s = ""
For i = 1 To n
s = s + CStr(d(i))
Next i
MsgBox s
End Sub
n = CLng(InputBox("Введите натуральне число"))
ReDim d(1 To 10)
i = 0
Do While n > 0
i = i + 1
d(i) = n Mod 10
n = n \ 10
Loop
ReDim Preserve d(1 To i)
n = i
For i = 1 To n - 1
For j = i + 1 To n
If d(i) < d(j) Then
t = d(i)
d(i) = d(j)
d(j) = t
End If
Next j
Next i
s = ""
For i = 1 To n
s = s + CStr(d(i))
Next i
MsgBox s
End Sub
Пожаловаться
- 28.06.2018 18:28
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы