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