Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д