Дано чотиризначне число a

Дано натуральное число n. Создать новое число, которое получается написав число обратным порядком
Например, если дано 3578, то получится 8753. Есть такой вариант, но нужно короче... ВАЖНО Нужно именно создать новое число, а не...

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетное число »и т. д.

Перевірте, чи існує чотиризначне натуральне число, куб суми цифр якого дорівнює йому самому.
Перевірте, чи існує чотиризначне натуральне число, куб суми цифр якого дорівнює йому самому. Добавлено через 2 минуты пожалуйста

Дано целое число. Вывести его строку-описание вида «отрицательное чет-ное число», «нулевое число», «положительное нечетное число» и т. д.
Дано целое число. Вывести его строку-описание вида «отрицательное чет-ное число», «нулевое число», «положительное нечетное число» и т. д. ...

Дано 2-ух-значное число. Сделать так, чтоб программа преобразовала это число в новое число кол-во десятков
Тоесть, для примера, мы вводим число 23, а программа выводит нам 32 (числа наоборот).

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получ
Вобщем,если не сложно,именно саму функцию помочь написать,ибо я просто не могу понять:) Добавлено через 22 минуты вот так...

Дано натуральное число, определить входит ли число a в число b
Private Sub Command1_Click() Dim c As Long Dim x As Double Dim a As Byte c = Val(Text1.Text) a = Val(Text2.Text) k = True Do...