Найти и напечатать только те элементы массива, которые являются числами-палиндромами - VB

Формулировка задачи:

11. В заданном одномерном массиве целого типа найти и напечатать только те элементы мас-сива, которые являются числами-палиндромами, или сообщить, что таких нет. Использовать процедуру определения числа-палиндрома. (Палиндром – это число, которое читается одинаково справа налево и слева направо. Например, числа 1221, 343, 66 – палиндромы). Здравствуйте, извините за наглость, но очень нужно решение этого вопроса. Спасибо за понимание.

Решение задачи: «Найти и напечатать только те элементы массива, которые являются числами-палиндромами»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Function Палиндром(N) As Boolean
Палиндром = N = StrReverse(N)
End Function
 
Sub SkyGir()
Dim a(), N, S As String
a = Array(1, 12, 121, 1234, 1221, 678, 343, 66)
For Each N In a
  If Палиндром(N) Then S = S & N & vbLf
Next
MsgBox S
End Sub
                        

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

12 голосов , оценка 4.083 из 5

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