Найти все натуральные числа палиндромы - VBA
Формулировка задачи:
Помогите. Нужно найти все симметричные натуральные числа ( палиндромы ) из интервала от К до L.
VBA Word
Решение задачи: «Найти все натуральные числа палиндромы»
textual
Листинг программы
- Sub Palindrom()
- Dim K As Integer, L As Integer, I As Integer, J As Integer
- Dim M As Integer, N As Integer
- K = 100
- L = 300
- For I = K To L
- N = I
- M = 0
- While N
- M = M * 10 + N Mod 10
- N = N \ 10
- Wend
- If M = I Then Debug.Print I
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
