Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный

@Евгения_кибер · Регистрация: 25.12.2013

Помогите пожалуйста решить задачу
Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования
цифр целого положительного числа K на обратный (K — параметр целого
типа, являющийся одновременно входным и выходным). С помощью этой
процедуры поменять порядок следования цифр на обратный для каждого
из пяти данных целых чисел.

@The trick · 26.12.2013, 09:23

Visual Basic

Option Explicit
 
Private Sub Form_Load()
    Dim i As Long, k As Long
    Me.AutoRedraw = True
    For i = 0 To 4 
        k = Rnd * 100000
        Me.Print k,: Inverse k: Me.Print k
    Next
End Sub
Private Sub Inverse(k As Long)
    k = CLng(StrReverse(CStr(k)))
End Sub

@Евгения_кибер 1 / 1 / 0 Регистрация: 25.12.2013 Сообщений: 26
		1
	Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный 25.12.2013, 22:12. Просмотров 1668. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел. 0

Опции темы

Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный

Решение