ОТВЕТ НА ЭТУ АБРАКДАБРУ
ABCDE*9=FGHIJ.10638*9=95742.10647*9=95823.10836*9=97524
A=1 B=0 И ТАК ДАЛЕЕ
ИСХОДНИК НА VB
Dim y(11) As Byte
Private Sub Command1_Click()
For x = 10000 To 99999
x1 = x * 9: x2 = Trim(Str(x)) + Trim(Str(x1))
For z = 0 To 9 'ЗАПОЛНЕНИЕ МАССИВА КОНСТАНТОЙ
y(z) = 11: Next z
z = 0 'ПРОВЕРКА НЕРАВЕНСТВА ЦИФР МЕЖДУ СОБОЙ
m1: x3 = Mid(x2, z + 1, 1)
x3 = Val(x3)
If x3 <> y(x3) And z < 10 Then
y(x3) = x3: z = z + 1: GoTo m1
End If
If z = 10 And x1 < 99999 Then Print " "; x; "*9=";