Описать функцию 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д