Натуральное число называется двояким, если в его десятичной записи встречается не более двух различных цифр. Например, числа 3, 23, 33, 100, 12121 — двоякие, а числа 123 и 9980 — нет.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | CLS INPUT "vvedite chislo ", n n1 = n n2 = n DO n1 = n1 + 1 m1 = n1 k = 0 t = 1 DO k = k + 1 a(k) = m1 MOD 10 m1 = m1 \ 10 LOOP UNTIL m1 = 0 FOR i = 1 TO k FOR j = 2 TO k IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1) NEXT NEXT FOR i = 2 TO k IF a(i) <> a(i - 1) THEN t = t + 1 NEXT IF t < 3 THEN rez1 = n1 LOOP UNTIL t < 3 DO n2 = n2 - 1 m2 = n2 k = 0 t = 1 DO k = k + 1 a(k) = m2 MOD 10 m2 = m2 \ 10 LOOP UNTIL m2 = 0 FOR i = 1 TO k FOR j = 2 TO k IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1) NEXT NEXT FOR i = 2 TO k IF a(i) <> a(i - 1) THEN t = t + 1 NEXT IF t < 3 THEN rez2 = n2 LOOP UNTIL (t < 3) OR (n2 = 0) IF ABS(rez2 - n) < ABS(rez1 - n) THEN PRINT rez2 ELSE IF ABS(rez2 - n) > ABS(rez1 - n) THEN PRINT rez1 ELSE PRINT rez1, rez2 |