Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы