Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no - VB
Формулировка задачи:
Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no.
помогите решить на VB
Решение задачи: «Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no»
textual
Листинг программы
Function isPal(n as integer) As Boolean
k%=0
Do while (n>0)
k%=k%*10+(n mod 10)
n=n\10
Loop
isPal=(n=k%)
End function
Sub Main
n%=Val(InputBox("Введите число"))
MsgBox IIF(isPal(n%),"Yes","No")
End Sub