Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В - 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

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


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

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

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