Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В - VB
Формулировка задачи:
Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В. А и В задаются.
Не знал с чего начать. Решил попробовать так, но выходит ошибка:
Решение задачи: «Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В»
textual
Листинг программы
Sub main() a = 0 b = 999 For i& = a To b If Is_Палиндром(i) Then Debug.Print i Next i End Sub Function Is_Палиндром(X As Long) As Boolean Dim i As Integer, s As String s = CStr(X) For i = 1 To Len(s) / 2 If Mid$(s, i, 1) <> Mid$(s, Len(s) - i + 1, 1) Then Exit Function Next i Is_Палиндром = True End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д