Функция Разложения числа - VB

Узнай цену своей работы

Формулировка задачи:

Дана функция. Нужно разложить любое натуральное число на числа и потом эти числа сравнить и вывести максимальное. Программа должна быть универсальная разложить то разложил но как данные числа запомнить и сравнить?
help me...
не дождавшись ответа сделал не универсалку но только для 4 чисел. мб кому-то пригодиться

Решение задачи: «Функция Разложения числа»

textual
Листинг программы
Function Max_Digit(BYVAL N As Long) As Byte
While N
  If Max_Digit < N Mod 10 Then Max_Digit = N Mod 10
  N = N \ 10
Wend
End Function

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы