Найти все натуральные числа палиндромы - 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
                        

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

6 голосов , оценка 3.667 из 5

Похожие ответы