Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no - VB

Формулировка задачи:

Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no. помогите решить на VB

Код к задаче: «Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no - VB»

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

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ