Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры (n < 9999). - VB

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

Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры (n < 9999).

Решение задачи: «Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры (n < 9999).»

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

                            Private Sub Form_Load()
Dim n, t, s, d, e As Integer
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®")
 
t = Fix(n / 1000)
s = (n / 100) Mod 10
d = (n / 10) Mod 10
e = n Mod 10
 
If (t = s And t = d) Or (t = s And t = e) Or (t = d And t = e) Or (s = e And s = d) Then
MsgBox ("ГІГ°ГЁ Г®Г¤ГЁГ*Г*ГЄГ®ГўГ»ГҐ Г¶ГЁГґГ°Г» ГҐГ±ГІГј")
Else
MsgBox ("ГІГ°ГҐГµ Г®Г¤ГЁГ*Г*ГЄГ®ГўГ»Гµ Г¶ГЁГґГ° Г*ГҐГІ")
End If
 
Print t, s, d, e
 
End Sub
                        

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

9 голосов , оценка 4.333 из 5

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