Описать функцию Digit N (K, N) целого типа, возвращающую N-ю цифру целого положительного числа R - VB
Формулировка задачи:
Описать функцию Digit N(K,N) целого типа, возвращающую N-ю цифру целого положительного числа R. (цифры в числе измеряются справа налево) Если количество цифр в числе К меньше N,то данных целых положительных чисел К1, К2, ... К5 . Вызвать функцию DigitN с пораметром N, изменится от 1 до 5
Решение задачи: «Описать функцию Digit N (K, N) целого типа, возвращающую N-ю цифру целого положительного числа R»
textual
Листинг программы
- Function Digit(r As Integer, n As Integer)
- If (n = 1) Then
- Digit = r Mod 10
- Else
- If r < 10 Then
- Digit = -1
- Else
- Digit = Digit(r \ 10, n - 1)
- End If
- End If
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д